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

Как узнать ИНДЕКС кнопки на ToolBar(е)   Найти похожие ветки 

← →
NikNet ©   (2005-09-26 22:11) [0]

Например я щелкнул кнопку 3-ю как мне получить этот индекс этой кнопки?

Мне именно надо правой кнопкой мыши...

---

← →
GanibalLector ©   (2005-09-27 02:16) [1]


procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
 var Handled: Boolean);
 var P:TPoint;
begin
 if (Msg.message=WM_RButtonDown) and (Msg.hwnd=ToolBar1.Handle) then
 begin
   GetCursorPos(P);
   // и определяешь на совпадение курсора и расположения кнопки
 end;
end;


P.S. Очень может быть,что есть вариант получше

---

← →
Джо ©   (2005-09-27 02:34) [2]

>  NikNet ©   (26.09.05 22:11)

Всем кнопкам на тулбаре присваиваешь единый обработчик OnMouseDown:

procedure TForm1.ToolButton1MouseDown(Sender: TObject;
 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if (Button = mbRight) and (Sender is TToolButton)  then
   ShowMessage (IntToStr(TToolButton(Sender).Index))
end;

Или проблема в чем-то другом?

---

← →
GuAV ©   (2005-09-27 02:43) [3]

GanibalLector ©   (27.09.05 2:16) [1]
Джо ©   (27.09.05 2:34) [2]

А причём тут VCL ?

---

← →
Джо ©   (2005-09-27 02:47) [4]

>  [3] GuAV ©   (27.09.05 02:43)
> А причём тут VCL ?

Упс...

---

← →
DVM ©   (2005-09-27 10:37) [5]

Если собрался делать таскбар на основе тулбаров - знай, что в версиях WIN ниже 98 тулбар не обладает необходимой функциональностью.

---

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

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



Память: 0.46 MB
Время: 0.026 c