Клик мыши на StatusBarе

← →
Alex_C © (2006-03-01 15:05) [0]

Как в событии OnMouseClick на StatusBar"е определить, на какой StatusBarPanel был клик?

← →
clickmaker © (2006-03-01 15:42) [1]

GetCursorPos
искать в цикле, пользуясь Panels[i].Width

← →
Alex_C © (2006-03-01 15:47) [2]

Дык это понятно. Думал - может какое готовое средство есть...

← →
begin...end © (2006-03-01 17:10) [3]

> Alex_C © (01.03.06 15:47) [2]

uses CommCtrl;

type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
private
procedure WMNotify(var Message: TWMNotify); message WM_NOTIFY;
end;

procedure TForm1.WMNotify(var Message: TWMNotify);
begin
with Message.NMHdr^ do
if (hwndFrom = StatusBar1.Handle) and (code = NM_CLICK) then
Caption := IntToStr(PNMMouse(Message.NMHdr).dwItemSpec);
inherited
end;

ОК! Спасибо!

Клик мыши на StatusBarе Найти похожие ветки