Сообщения мыши в ListBox

[mutabor]

Как обработать сообщение WM_LBUTTONUP, когда курсор находится над Листбоксом?
ListBox.OnMouseUp не подходит, из-за перетаскивания некорректно работает.
Для формы я делаю так

procedure MyMouseUp(var n: TWMLButtonUp); message WM_LBUTTONUP;

procedure TForm1.MyMouseUp(var n: TWMLButtonUp);
begin
if n.Keys = MK_CONTROL then showmessage('up');
end;

над листбоксом не работает, а мне над ним и надо

[Stilet]

Можно так :

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TListBox=class(StdCtrls.TListBox)
protected
procedure ListMouseUp(var n: TWMLButtonUp); message WM_LBUTTONUP;
end;


TForm1 = class(TForm)
ListBox1: TListBox;
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TLIstBox }

procedure TLIstBox.ListMouseUp(var n: TWMLButtonUp);
begin
// if n.Keys = MK_CONTROL then showmessage('up');
end;

end.


Причем Это распространяется на все листвоксы которые ты как обычно накидаеш на форму, хотя я не пойму чем мешает OnMouseUp

[mutabor]

Спасибо

хотя я не пойму чем мешает OnMouseUp

если используются Drag and Drop процедуры, OnMouseUp перестает правильно работать - срабатывает сразу при нажатии, Ctrl не определяется
Тут все дело в функции BeginDrag, если убрать ее вызов все приходит в норму, но она тоже нужна.

P.S. пока писал ответ пришла хорошая идея, намного проще, нужно просто BeginDrag вызывать не при каждом нажатии (он на MouseDown повешан) а выборочно.