右クリックで処理をするには

解決


松山  2002-01-15 08:19:34  No: 467  IP: [192.*.*.*]

通常マウスの左クリックはButton1ONCLICKで処理を記述します。
右クリックはどうするのですか?
Delphi2からDelphi使っているのですが、初めて右クリックの必要がでてきました。

編集    削除
新☆人  2002-01-15 08:53:44  No: 468  IP: [192.*.*.*]

OnMouseDown
OnMouseUp
でボタンを判別すればいいのでは?

編集    削除
motti  2002-01-29 01:36:15  No: 469  IP: [192.*.*.*]

多分いまの時点ではご存知かもしれないですけど

procedure TForm1.Panel1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   if  Button  =   mbRight then
     ShowMessage('右だよ');
end;

こんな感じだと思います。

編集    削除
松山  2002-01-30 07:54:41  No: 470  IP: [192.*.*.*]

あの、すいません」。解決しました。私がWindowsの常識をしらなかったようです。POPUPMENUを使えばいいはなしでした。ポップアップメニューを表示したい
フォームなりボタンのPOPUPMENUのプロパティを設定すればよかったのです。
皆さん、私の言葉足らずの質問に答えてくださってありがとうございます。

編集    削除