Delphi如何实现鼠标单击一个按钮弹出一个界面？

2024-12-21 08:28:28

推荐回答（5个）

回答（1）：

procedure button1click(sender :tobject)
var
myform:tform;
begin
myform:=tform.create(self);
with myform do
begin
width:=500;
height:=400;
left:=200;
top:=150;
caption:='删除窗';
show;
end;
end;

回答（2）：

form.show显示你要显示的窗体和form.hide 这个是隐藏

回答（3）：

Application.CreateForm(TCheckOut,CheckOut);
CheckOut.ShowModal;
CheckOut.Free;

回答（4）：

form2.show 或者showmodal；

回答（5）：

Form2.show;