Скачать: CL | DM;

Клик мыши на 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;

---

← →
Alex_C ©   (2006-03-02 08:28) [4]

ОК! Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c