學習 Message(3): 響應 WM_LBUTTONDOWN 消息

　本例效果圖:

　　代碼文件:

unit　Unit1;

interface

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

type
　TForm1　=　class(TForm)
　　Memo1:　TMemo;
　　procedure　FormCreate(Sender:　TObject);
　　procedure　FormMouseDown(Sender:　TObject;　Button:　TMouseButton;　Shift:　TShiftState;　X,　Y:　Integer);
　protected
　　{這句的輸入方法:　Ctrl+空格;　輸入　moused　確認;　然後執行　Shift+Ctrl+C}
　　procedure　MouseDown(Button:　TMouseButton;　Shift:　TShiftState;　X:　Integer;　Y:　Integer);　override;
　　{這句的輸入方法:　Ctrl+空格;　輸入　wmlbuttondo　確認;　然後執行　Shift+Ctrl+C}
　　procedure　WMLButtonDown(var　Message:　TWMLButtonDown);　message　WM_LBUTTONDOWN;
　end;

var
　Form1:　TForm1;

implementation

{$R　*.dfm}

procedure　TForm1.FormCreate(Sender:　TObject);
begin
　Memo1.Clear;
end;

{響應　WM_LBUTTONDOWN　消息的方法　1:　OnMouseDown　事件}
procedure　TForm1.FormMouseDown(Sender:　TObject;　Button:　TMouseButton;
　Shift:　TShiftState;　X,　Y:　Integer);
begin
　Memo1.Lines.Add('OnMouseDown');
end;

{響應　WM_LBUTTONDOWN　消息的方法　2:　覆蓋父類的　MouseDown　方法}
procedure　TForm1.MouseDown(Button:　TMouseButton;　Shift:　TShiftState;　X,
　Y:　Integer);
begin
　inherited;　{可以去掉或下移這句再試}
　Memo1.Lines.Add('MouseDown');
end;

{響應　WM_LBUTTONDOWN　消息的方法　3:　直接使用消息方法}
procedure　TForm1.WMLButtonDown(var　Message:　TWMLButtonDown);
begin
　Memo1.Lines.Add('WM_LBUTTONDOWN');
　inherited;　{可以去掉或上移這句再試}
end;

end.

　窗體文件:

object　Form1:　TForm1
　Left　=　0
　Top　=　0
　Caption　=　'Form1'
　ClIEntHeight　=　123
　ClIEntWidth　=　233
　Color　=　clBtnFace
　Font.Charset　=　DEFAULT_CHARSET
　Font.Color　=　clWindowText
　Font.Height　=　-11
　Font.Name　=　'Tahoma'
　Font.Style　=　[]
　OldCreateOrder　=　False
　OnCreate　=　FormCreate
　OnMouseDown　=　FormMouseDown
　PixelsPerInch　=　96
　TextHeight　=　13
　object　Memo1:　TMemo
　　Left　=　0
　　Top　=　0
　　Width　=　137
　　Height　=　123
　　Align　=　alLeft
　　Lines.Strings　=　(
　　　'Memo1')
　　ScrollBars　=　ssVertical
　　TabOrder　=　0
　　ExplicitHeight　=　206
　end
end

　　後面還有更多響應消息的辦法.