Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.27;
Скачать: 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 вся ветка

Текущий архив: 2005.11.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.054 c
5-1112337769
Viva
2005-04-01 10:42
2005.11.27
Текст опубликованного в компоненте события


3-1129185328
alol
2005-10-13 10:35
2005.11.27
динамическое создание таблиц


4-1127747035
NikNet
2005-09-26 19:03
2005.11.27
Хочу создать свой TaskBar но мне надо знать структуру контролов


14-1130918257
Dmseller
2005-11-02 10:57
2005.11.27
bool.ru - предложение


14-1130999889
ANB
2005-11-03 09:38
2005.11.27
Нам в компанию срочно требуется документатор