掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Imageを右クリックした時のイベント処理は？ (ID：3562)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
コンポーネント名をImage1とEdit1とします。 Image1のOnMouseUpイベントに次のようなものを書けば良いと思います。 procedure TMainForm.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbRight then begin Edit1.Text := StrToIntDef(Edit1.Text,0) - 1 ; end ; end; Edit1.Textに書かれている内容が数字とは限らないので上記のようにしてみました。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.