delphi 如何改变主窗体

答案:2 悬赏:50 手机版

解决时间 2021-01-03 18:30

提问者网友：泪痣哥哥
2021-01-03 03:38

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

最佳答案

五星知识达人网友：人類模型
2021-01-03 04:27

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

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

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

end;

全部回答

1楼网友：枭雄戏美人
2021-01-03 04:52

在工程选项里设置就可以了工程->选项->forms->main forms设置一下就可以了你可以在工程文件里修改下,工程->查看工程源 rogram project1; uses forms, unit1 in 'unit1.pas' {form1}, unit2 in 'unit2.pas' {form2}; {$r *.res} begin application.initialize; if 情况a then //这里设置你自己的条件 begin application.createform(tform1, form1); end else ; application.createform(tform2, form2); application.run; end.

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息