Form2 := TForm2.Create(self); 改成 Form2 := TForm2.Create(Application);
好像没办法,Form1和Form2是共用的一个Application。
procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(self); Form2.Show; end; procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage('sdfs'); end;
5,378
社区成员
262,720
社区内容
加载中
试试用AI创作助手写篇文章吧