Главная страница
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.208 c
3-1129111830
iamkate
2005-10-12 14:10
2005.11.27
Проблема с Update blob-поля


5-1112022648
JenekX
2005-03-28 19:10
2005.11.27
Сохранение свойств компонентов в файл


4-1127596252
GuAV
2005-09-25 01:10
2005.11.27
EMF - изменение записей - как заполнить intercharacter spacing ?


2-1131691494
DimonS
2005-11-11 09:44
2005.11.27
Объясните такую ситуацию.


1-1130774220
n0mid
2005-10-31 18:57
2005.11.27
Как можно из двух EXE файлов получить один