マウス押下アクションへの応答
マウスへの応答 への移動
ユーザーがマウスのボタンを押すと、Vcl.Controls.TControl.OnMouseDown イベントが、そのポインタがのっているオブジェクトで発生します。オブジェクトは、その後そのイベントに応答します。
マウス押下アクションに応答するには、イベント ハンドラを OnMouseDown イベントにアタッチします。
コード エディタは、フォーム上でのマウス押下イベントのために、空のハンドラを生成します：
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
end;
void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y) {
}