这看起来很简单的有关问题难倒多少高手? windows.SetParent(form2.Handle, form1.Handle)

这看起来很简单的问题难倒多少高手??? windows.SetParent(form2.Handle, form1.Handle);

Delphi(Pascal) code

  Application.Initialize;  Application.CreateForm(TForm1, Form1);  Application.CreateForm(TForm2, Form2);  windows.SetParent(form2.Handle, form1.Handle);  form2.Show;  form2.Top := 100;//实在搞不定form2的位置啊  form2.Left := 100;  Application.Run;

[解决办法]

Application.Initialize;
Application.CreateForm(TForm1, Form1);
{
Application.CreateForm(TForm2, Form2);
windows.SetParent(form2.Handle, form1.Handle);
form2.Show;
form2.Top := 100;//实在搞不定form2的位置啊
form2.Left := 100;
}
Application.Run;

在Form1的某个事件中：
Form2 := TForm2.Create(Self);
Form2.ShowModal;

另外form2的以下2个事件中：
onclose: Action := caFree;
onDestroy: form2 := nil;

查看更多 下一篇