盒子论坛 v2.1

procedure myminimize(var msg: TWMSYSCOMMAND);message wm_syscommand;

procedure tform1.myminimize(var msg: TWMSYSCOMMAND);
begin
  if msg.CmdType = sc_minimize then //最大
//化可以到windows单元中找
    begin
      //.你要干的事
    end
  else inherited;
end;

----------------------------------------------

作者：

lchcmm (it)	★☆☆☆☆	-
	盒子活跃会员

2003/10/22 15:15:36

2楼：

谢谢bios，但这个事件怎么没有像close事件一样在TFORM的EVENTS中显示出来呢？我在哪可以找到最大化的事件呢？
----------------------------------------------
-努力

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/22 21:02:23

3楼：

这是微软的消息映射机制

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
   //消息映射机制
    procedure myminimize(var msg: TWMSYSCOMMAND);message wm_syscommand;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure tform1.myminimize(var msg: TWMSYSCOMMAND);
begin
  case  msg.CmdType of
   sc_minimize:
    begin
      showmessage('最小化');
    end ;
   SC_MAXIMIZE:
     begin
       showmessage('最大化');
     end;
  else
     inherited;
  end;//end case
end;

end.

----------------------------------------------

作者：

lchcmm (it)	★☆☆☆☆	-
	盒子活跃会员

2003/10/24 10:13:54

4楼：

谢谢
----------------------------------------------
-努力

作者：

kingking (kk)	★☆☆☆☆	-
	普通会员

2003/10/24 10:16:54

5楼：

顺便问个问题。当双击任务栏上的按钮使程序最小化时。好像不会发出这个消息的。这个又该怎么处理呢？
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/24 15:19:54

6楼：

问题提的好，我想应该会的呀！
----------------------------------------------

作者：

kingking (kk)	★☆☆☆☆	-
	普通会员

2003/10/24 16:36:02

7楼：

我本来想的也应该会发的。但记得原来做的时候确实是没有发出这个消息。刚才又写了段代码试了试，也确实没有啊。高手门教教小弟吧。原来做的时候为了严密性，直接setwindowlong把那个按钮消了。但很不方便。
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/25 15:00:05

8楼：

是吗，我找时间试试！
----------------------------------------------

信息

登陆以后才能回复