新建一个project,两个窗体Form1、Form2,其中Form1为窗体。
Form1中建一个按钮btn1,点击事件如下:
procedure TForm1.btn1Click(Sender: TObject);
var
f: TForm2;
begin
f := TForm2.Create(Self);
f.Show;
end;问题来了:程序运行后,当点击btn1后,显示Form2窗体,此时按一下ALT键,会弹出Form1窗体。
我晕了!这是为啥啊? 如果想不弹出Form1窗体,应该怎么做呢?
Form1中建一个按钮btn1,点击事件如下:
procedure TForm1.btn1Click(Sender: TObject);
var
f: TForm2;
begin
f := TForm2.Create(Self);
f.Show;
end;问题来了:程序运行后,当点击btn1后,显示Form2窗体,此时按一下ALT键,会弹出Form1窗体。
我晕了!这是为啥啊? 如果想不弹出Form1窗体,应该怎么做呢?
---
改为
f.ShowModal;