Question

delphi 如何改变主窗体

也就是我想用代码使一个非主窗体变为主窗体

Answer 1

本人写的管理软件中的一段代码，希望可以帮到你。代码如下：

{因本窗体非是主窗体，故作为MDIForm时需要修改}

procedure TF_Main.RzGroup6Items3Click(Sender: TObject);
var p: ^THandle; //指针句柄
begin
p := @Application.MainForm.ClientHandle; //获取主窗体句柄
p^ := ClientHandle; //指向MainForm,即把MainForm.ClientHandle改为MDI Form的ClientHandle

end;