掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TListView で MouseUp イベントが発生しない対処法 (ID：151775)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
MouseUpが発生しないときは MouseDown の inherited; を抜けるのがUPした後みたいなので TListView = class(Vcl.ComCtrls.TListView) protected procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN; end; procedure TListView.WMRButtonDown(var Message: TWMLButtonDown); var MouseDown: TMouseEvent; begin if Assigned(OnMouseDown) = True then begin OnMouseDown(Self , mbRight , [] , Message.XPos , Message.YPos); MouseDown := OnMouseDown; OnMouseDown := nil; inherited; OnMouseDown := MouseDown; end else begin inherited; end; if (Assigned(Selected) = True) or (MultiSelect = True) then begin if Assigned(OnMouseUp) = True then begin OnMouseUp(Self , mbRight , [] , Message.XPos , Message.YPos); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.