掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ボタンを右クリックするには？ (ID：43035)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>ボタンのすぐ傍なら動きます。 //procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer) ; >ボタンを右クリックするために procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then Canvas.Brush.Color := clRed else if Button = mbRight then Canvas.Brush.Color := clBlue ; Canvas.Ellipse(X,Y,X+10,Y+10) ; end ; がんばって。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.