B
bqfhw
Unregistered / Unconfirmed
GUEST, unregistred user!
来自:dana, 时间:2002-9-27 8:47:00, ID:1348706
我要的不是创建一个新的窗口,而是创建一个指定的已存的窗口。
但如dedema兄的意思也是可以的:
var ff: tform;
...
procedure TForm1.AddButtonClick(Sender: TObject);
begin
ff:=tform.create(self);
ff.Caption:=edit1.text;
ff.showmodal;
end;
我要的不是创建一个新的窗口,而是创建一个指定的已存的窗口。
但如dedema兄的意思也是可以的:
var ff: tform;
...
procedure TForm1.AddButtonClick(Sender: TObject);
begin
ff:=tform.create(self);
ff.Caption:=edit1.text;
ff.showmodal;
end;