delphi7 中如何实现一子窗体同时多开?
时下的如QQ的聊天工具里的那些聊天窗口都是可以同时打开多个实行多人聊天的的,那它们到底是怎么实现的呢譬如,我有一个主窗体Tform1,同时里面还有一个窗体Tform2,而...
时下的如QQ的聊天工具里的那些聊天窗口都是可以同时打开多个实行多人聊天的的,那它们到底是怎么实现的呢
譬如,我有一个主窗体Tform1,同时里面还有一个窗体Tform2,而我就是想实现在Tform1中的列表里点击不同的消息都能弹出都能Tform2来显示,几个Tform2是要可以同时显现的。
刚学delphi7没多久,这个问题对我来说难的呢,各位给指教指教啊,不知道是不是有关窗体句柄的分配的呢。最好是给个简单的例子,要不就说说那详细原理,真的是谢谢了哦
怎么我还是不理解的呢,各位能不能给说清楚点啊,啊,谢谢了呢 展开
譬如,我有一个主窗体Tform1,同时里面还有一个窗体Tform2,而我就是想实现在Tform1中的列表里点击不同的消息都能弹出都能Tform2来显示,几个Tform2是要可以同时显现的。
刚学delphi7没多久,这个问题对我来说难的呢,各位给指教指教啊,不知道是不是有关窗体句柄的分配的呢。最好是给个简单的例子,要不就说说那详细原理,真的是谢谢了哦
怎么我还是不理解的呢,各位能不能给说清楚点啊,啊,谢谢了呢 展开
2个回答
展开全部
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Tform2:TForm;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Tform2:= TForm.Create(Self);
Tform2.Width:= 250;
Tform2.Height:= 250;
Tform2.Position:= poMainFormCenter;
{.此处设置Tform2的属性,可根据不同情况动态改变..}
Tform2.Show;
end;
end.
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
Tform2:TForm;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Tform2:= TForm.Create(Self);
Tform2.Width:= 250;
Tform2.Height:= 250;
Tform2.Position:= poMainFormCenter;
{.此处设置Tform2的属性,可根据不同情况动态改变..}
Tform2.Show;
end;
end.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询