请问如何改变一个程序的Mainform(readonly)??????(100分)

  • 主题发起人 主题发起人 DiDi
  • 开始时间 开始时间
还是我来一刀吧!
修改很容易,但是要知道是否确实出现李颖所说,
"运行时改MainForm会把整个消息处理体系搞乱的",
则必须彻底研究forms.pas,看看会不会有问题.
我粗略研究了一下,除了在MDI时用到mainform多一些,
其他时候mainform与普通form几乎没有差别.
而MDI的情况则主要用到clientHandle,因此:
procedure TWantToBeMainForm.Button1Click(Sender: TObject);
var
pmain:^tform;
pHandle:^THandle;
begin
pHandle:=addr(ClientHandle);
pmain:=addr(Application.MainForm);
pHandle^:=Application.MainForm.ClientHandle;
pmain^:=tform(self);
end;

实践出真知,那位有朝一日真的这样做碰到了问题,请通知大家,
我们就长了经验了.
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
916
SUNSTONE的Delphi笔记
S
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部