掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TComboBoxのMouseDownイベントについて (ID：30771)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
VCLを改竄するよりも、ComboWndProcをオーバーライドしたらいいのでは？ type TMyComboBox = class(TComboBox) protected procedure ComboWndProc(var Message: TMessage; ComboWnd: HWnd; ComboProc: Pointer); override; published property OnMouseDown; end; procedure TMyComboBox.ComboWndProc(var Message: TMessage; ComboWnd: HWnd; ComboProc: Pointer); begin inherited ComboWndProc(Message, ComboWnd, ComboProc); if (ComboWnd = EditHandle) then begin with Message do if (Msg = WM_LBUTTONDOWN) then MouseDown(mbLeft, KeysToShiftState(WParam), LParamLo, LParamHi); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.