怎样使一个子窗体在主窗体最小化后而不最小化?(新的问题)

怎样使一个子窗体在主窗体最小化后而不最小化?(新的问题)

我以前已答复过，我看了你持续提的三个问题，你是不是想做一个拖放篮窗口？...要让一个非主窗口不跟随主窗口最小化，可以重载该Form的CreateParams过程: protected procedure CreateParams(Var Param: TCreateParams);Override;...procedure TForm.CreateParams(Var Param:TCreateParams);begin Inherited CreateParams(Param); With Param Do begin wndParent := GetDesktopWindow; //这一句可让该窗口不随主窗口最小化 ExStyle := ExStyle or WS_EX_TOOLWINDOW;//这一句应用该窗口不在义务栏显示 end;end;我干脆一并答复了吧，记得给分喔。要模仿拖动标题栏的动作有很多办法，尝尝这个：protected procedure WMLBUTTONDOWN(Var Message: TWMLBUTTONDOWN);Message WM_LBUTTONDOWN;procedure Tform1.WMLBUTTONDOWN(Var Message: TWMLBUTTONDOWN);beginPostMessage(Handle,WM_NCLBUTTONDOWN,HTCAPTION,MakeLParam(Message.XPos,Message.YPos));end;

unit unit2;interfaceuses windows, messages, sysutils, classes, graphics, controls, forms, dialogs; tform2 = class(tform) procedure createparams(var params: tcreateparams);override; private params.wndparent:=getdesktopwindow; { private declarations } public { public declarations } end; form2: tform2;typeimplementation{$r *.dfm}varprocedure tform2.createparams(var params:tcreateparams);begin inherited;end;end.

我认为可弗成以截获消息WM_SYSCOMMAND中的SC_MINIMIZE，对Form履行Hide过程