盒子论坛 v2.1

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.

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

作者：

blueicemeime (blueice)	★☆☆☆☆	-
	普通会员

2003/12/19 21:54:43

2楼：

谢谢BISO GG
----------------------------------------------
-

作者：

perpetualkiss (¤CanI☆KissYou¤)	★☆☆☆☆	-
	普通会员

2003/12/19 22:01:05

3楼：

BIOS~~GG你能告诉我你是怎么学的吗~~~？？？
谢谢~~~
我也想成高手~~~
----------------------------------------------
-

作者：

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

2003/12/20 7:42:35

4楼：

http://www.516688.net/ergong/down/wzsk5f.exe
http://www.516688.net/ergong/baoliuye1.htm
----------------------------------------------

信息

登陆以后才能回复