掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
OnEdit1mousedown の使い方について (ID:151829)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
igyさん、ありがとうございました。 解決しました。 procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); begin Handled := True; end; procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if button = mbLeft then begin inc(Flg); if(Flg>1)then Flg:=-1 ; end else if button = mbRight then begin DEC(Flg); if(Flg<-1)then Flg:=1 ; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.