procedure TForm1.Form3DMouseDown を追加したい

解決

PENTA_MAX 2014-02-13 08:56:25 No: 46025

作成手順

  ファイル
  新規作成
  FireMonkey デスクトップアプリケーション
  3D FireMonkey アプリケーション

で作成します。

procedure TForm1.Form3DMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
end;

を Unit1.pas に追加したいのですが、手順が分かりません。
どうやれば、procedure TForm1.Form3DMouseDown を、Unit1.pas を追加できますでしょうか。
詳しい方がいらっしゃいましたらご指導の程よろしくお願い致します。

使用環境
Delphi XE5 Pro Update2
Win7 Pro 64bit SP1

PENTA_MAX 2014-02-13 17:48:23 No: 46026

すいません。
ど忘れしていました。

オブジェクトインスペクタのイベントタブをマウスの左ボタンでクリック。

OnMouseDown をマウスの左ボタンでクリック。

で出来ました。