当点击窗体最大化时对应的能触发那个窗体事件?

Question

to:debussy(debussy) 
sorry,我用的是
delphi 5.0
Form没有OnMaxmize事件

Answer 1

to:debussy(debussy) zhptj(好好学习－－天天向上
sorry,我用的是
delphi 5.0
Form没有OnMaxmize事件

Answer 2

你可以截获消息
 public
procedure wmsyscommand(var msg:Twmsyscommand);message wm_syscommand;procedure Tform1.wmsyscommand(var msg:Twmsyscommand);
begin
if msg.CmdType=sc_maximize then
    inherited;

Answer 3

type
  TForm1 = class(TForm)
  private
    procedure msg(var msg:TMessage);
    message wm_syscommand;
  public
  end;
procedure tform1.msg(var msg:TMessage);
begin
 if msg.WParam=sc_maximize then showmessage('最大化');
end;

Answer 4

to:dreamfan(★这个月辞职★)
onresize窗体只要有一点变化,就触发这个事件了
我现在只想窗体最大化时,才能触发这个事件!

Answer 5

//此方法针对的是窗体
//  Application.OnMinimize; //参考
//  Application.OnRestore; //参考type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMSYSCOMMAND(var Msg: TWMSYSCOMMAND); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMSYSCOMMAND(var Msg: TWMSYSCOMMAND);
begin
  inherited;
  case Msg.CmdType and $FFF0 of
    SC_MINIMIZE: Application.Title := '最小化';
    SC_RESTORE: Application.Title := '恢复';
    SC_MAXIMIZE: Application.Title := '最大化';
  end;
end;

Answer 6

源码如下procedure TForm1.FormReSize(Sender : TObject);
begin
  if Self.WindowState in [wsMaximized] then
  begin
    do something .....
  end;
end;

Answer 7

Form's event 'OnCanResize'指的是Form伸缩时所触发的

Answer 8

如果是主窗体，则是Aplication.OnMaxmize事件
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 9

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure OnNCLButtonDown(var msg: TMessage); message WM_NCLBUTTONDOWN;
    procedure OnNCLButtonDblClk(var msg: TMessage); message WM_NCLBUTTONDBLCLK;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.OnNCLButtonDown(var msg: TMessage);
begin
  case msg.WParam of
    HTMAXBUTTON:
      Caption := 'Click Max Button';
    HTMINBUTTON:
      Caption := 'Click Min Button';
    HTCLOSE:
      Caption := 'Click Close Button';
  else
    Caption := '';
  end;
  inherited;
end;procedure TForm1.OnNCLButtonDblClk(var msg: TMessage);
begin
  if msg.WParam = HTCAPTION then
    Caption := 'Double Click Title'
  else
    Caption := '';
  inherited;
end;end.