Õâ¸öDelphi¿Ø¼þÊó±ê²¶×½ÔõôÓõÄ?

ÔÚÍøÉϳ­µÄ´úÂë,²»ÖªµÀÔÚDelphiÖÐÈçºÎ²Ù×÷,²ÅÄÜÊäÈëÒÔÏ´úÂë?ºÃÏñÊÇÊó±ê¹ö¶¯´úÂë,ÎÒ²»ÖªµÀÈçºÎ²Ù×÷,²ÅÄÜÈÃÏÂÃæ´úÂëÆð×÷ÓÃ?
Delphi(Pascal) code:

procedure TForm1.SetLabelCaption( ANum: Integer );
begin
Label1.Caption := IntToStr( ANum );
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
Rotation: ShortInt;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Rotation := HIWORD( Msg.wParam );
if Rotation > 0 then
Inc( Num )
else
Dec( Num );
SetLabelCaption( Num );
Handled := True;
end;
end;

---

Delphi(Pascal) code:

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := ApplicationEvents1Message;
end;

---

´úÂ벻ȫ£¬¿´²»Ã÷°×¡£×îºÃÌùÉÏÒ»Õû¶Î¡£

---

http://hi.baidu.com/hellowzr/blog/item/1ef01901230be98fe850cda8.html
¹ØÓÚ TApplicationEvents.OnMessage µÄ

---

ÒýÓÃ

Delphi(Pascal) codeprocedure TForm1.FormCreate(Sender: TObject);begin
  Application.OnMessage := ApplicationEvents1Message;end;

Õý½â£¬²»¹ýЧÂʲ»ÔõôÑù¡£

---

ѧϰ

---

procedure TForm1.ApplicationEvents1Message(var Msg