Как узнать ИНДЕКС кнопки на 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 ?

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

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