声明:
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;
wndParnet:=GetDesktopWindow;
end;
end;
这样这个窗体就不会随MainForm的位置变化而变化