W
wlyft
Unregistered / Unconfirmed
GUEST, unregistred user!
我试过这段代码，是可以，但就是控件全部倒过来了！！！！
还有没有其它方法？？？？？？？
Public
procedure Createparams(Var Params:TCreateParams);override;
...
procedure TFormDrop.Createparams(var Params:TCreateParams);
begin
Inherited CreateParams(Params);
With Params do
begin
EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME
wndParent:=GetDesktopWindow;
end;
end; ;
还有没有其它方法？？？？？？？
Public
procedure Createparams(Var Params:TCreateParams);override;
...
procedure TFormDrop.Createparams(var Params:TCreateParams);
begin
Inherited CreateParams(Params);
With Params do
begin
EXStyle:=ExStyle or WS_EX_TOPMOST OR WS_EX_ACCEPTFILES or WS_DLGFRAME
wndParent:=GetDesktopWindow;
end;
end; ;
]