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;