温
温柔一刀
Unregistered / Unconfirmed
GUEST, unregistred user!
还是我来一刀吧!
修改很容易,但是要知道是否确实出现李颖所说,
"运行时改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;
实践出真知,那位有朝一日真的这样做碰到了问题,请通知大家,
我们就长了经验了.
修改很容易,但是要知道是否确实出现李颖所说,
"运行时改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;
实践出真知,那位有朝一日真的这样做碰到了问题,请通知大家,
我们就长了经验了.