如何操作窗体右上角的 那两个按钮.

Question

一个BlMinMize 
    BlMAxMize
一个是关闭
 关闭 是 和 Onclose,OncloseQuery 有些关联.   那么我想在窗体最小化和最大化时能做些事
我应该怎么做.
   

Answer 1

ApplicationEvents.OnMinimize;
ApplicationEvents.OnRestore;（ApplicationEvents控件在Additional面板上）

Answer 2

你可以截获系统消息，也可以通过additional里面的ApplicationEvents组建来实现

Answer 3

可以在form的onResize中试试，比较resize后的窗体size是最大还是最小来进行判断

Answer 4

private
 procedure WMSysCommand(var message: TMessage); Message WM_SYSCOMMAND;  
   
Procedure TMainForm.WMSysCommand(var Message: TMessage);  
begin  
   Case message of    
      SC_MINIMIZE:   //最小化  
      SC_MAXMIZE:   //最大化  
   end;  
end;

Answer 5

最大化时触发onresize,最小化时不触发,
可以写一个过程来处理
过程定义
procedure   getfmsize(var wmcmd:Twmsyscommand);message wm_syscommand;  
   过程实现
procedure   Tform1.getfmsize(var wmcmd:Twmsyscommand);   
begin   
      if   wmcmd.CmdType=SC_MINIMIZE  then 
           begin  
              showmessage('窗体最小化');
            end   
      else   
       if wmcmd.CmdType=SC_MAXIMIZE   then 
            begin   
              showmessage('窗体最大化'); 
            end;  
      inherited;   
end;   

Answer 6

现在流行 星星 ...           中秋节才会需要月亮 . 又大又圆的那种 To 月亮
给出   [Error] UnitMain.pas(126): Ordinal type requiredTo 3楼 
   那个没反应 To Corn1 
   完全可行  受教了 

Answer 7

procedure TFrmMain.ApplicationEvents1Minimize(Sender: TObject);
begin
  self.Hide;
  ShowWindow(Application.Handle,SW_HIDE);
end;
 
第一遍可行.  当 self.Show; 后就不可行了.