掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TComboBoxのMouseDownイベントについて (ID:30768)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じ？ TComboBoxEx = class(TComboBox) private protected procedure EditWndProc(var Message: TMessage);override; published property OnMouseDown; end; procedure TComboBox.EditWndProc(var Message: TMessage); var X,Y: Integer; begin inherited; if Message.Msg = WM_LBUTTONDOWN then begin if Assigned(OnMouseDown) = True then begin X := TWMLBUTTONDOWN(Message).XPos; Y := TWMLBUTTONDOWN(Message).YPos; OnMouseDown(Self,mbLeft,[],X,Y); end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.