在Delphi中如何让非主窗体最小化，如何在点最小化按钮后触发事件

Question

如题，一旦解决立即揭贴！！！！

Answer 1

YourForm.WindowState := wsMinimized;

Answer 2

可以用PostMessage 和 SendMessage 给非主窗体自己发一个消息非主窗体 还是有句柄的啊self.Handle，例如：SendMessage(self.Handle, WM_SIZE, SIZE_MINIMIZED, 0);就能最小划了啊

Answer 3

action属性设置了么?如果是子窗体则必须设置此属性

Answer 4

替换掉子窗体的消息处理处理WM_SYSCOMMAND  判断是不是最小化消息 做你想的相应处理

Answer 5

Procedure TMainFrm.WndProc(TMessage &Msg)
{
    TForm.WndProc(Msg);
     if (Msg.Msg==WM_SYSCOMMAND)
begin
  if (Msg.WParam=SC_MINIMIZE )
         这里写你要做的处理
end;

Answer 6

//不知道是不是你要的.
private
  { Private declarations }
  procedure wmsyscommand(var msg:Tmessage);message wm_syscommand;
/////////////////////////////////////////////////////////////////////
procedure Tform1.wmsyscommand(var msg:Tmessage);
begin
case msg.WParam of
  sc_minimize : begin                    //最小化
                  Application.Minimize;
                  your code........      //你的代码.
                  inherited;
               end;
  else
  inherited;
  end;
end;

Answer 7

同意  vargent77(地平线)的