Определение какая нажата кнопка

← →
DDA © (2004-01-10 13:09) [0]

Например имеется 100 SpeedButton на форме
как определить можно быстро какая нажата кнопка

не залезая для каждой в OnClick и не прописывая там код.
Хотя бы определить Caption(лучше даже будет если Caption определить)

← →
YuRock © (2004-01-10 13:34) [1]

Для SpeedButton не знаю. Для остальных кнопок:

В классе окна добавь:

protected
procedure WndProc(var Msg: TMessage); override;

потом:

... Implementetion ... procedure TForm1.WndProc(var Msg: TMessage); const MAX_CAPTION = 100; var hButton: HWND; pCaption: Array[0..MAX_CAPTION] of Char; begin inherited; if (Msg.Msg = WM_COMMAND) and (HiWord(Msg.wParam) = BN_CLICKED) then begin ... hButton := HWND(Msg.lParam); GetWindowText(hButton, @pCaption, MAX_CAPTION - 1); ShowMessage(String(pCaption)); ... end; end;

← →
jack128 © (2004-01-10 13:45) [2]

procedure CommonClickHandlerForSpeedButtons(Sender: TObject);
begin
if Sender = SpeedButton1 then
...
else
if Sender = SpeedButton2 then
...
else
if Sender = SpeedButton2 then
...
else ...
end;

← →
Anatoly Podgoretsky © (2004-01-10 13:52) [3]

(Sender as TSpeedButton).Caption

← →
Vovchik_A © (2004-01-10 13:53) [4]

2 YuRock © (10.01.04 13:34) [1]
А че не Sender проверять ?

← →
YuRock © (2004-01-10 13:57) [5]

> Vovchik_A © (10.01.04 13:53) [4]
> А че не Sender проверять ?

Где проверять???

← →
Vovchik_A © (2004-01-10 13:58) [6]

2YuRock © (10.01.04 13:57) [5]Да вон написали уже

← →
YuRock © (2004-01-10 14:09) [7]

> Vovchik_A © (10.01.04 13:58) [6]

Где написали, в 2? :))))))

← →
Anatoly Podgoretsky © (2004-01-10 14:11) [8]

[2][3]

← →
YuRock © (2004-01-10 14:13) [9]

А что такое procedure CommonClickHandlerForSpeedButtons(Sender: TObject); ??

← →
YuRock © (2004-01-10 14:15) [10]

Ее что, надо каждой кнопке присваивать?

← →
jack128 © (2004-01-10 14:16) [11]

Общий обработчик OnClick для SpeedButton"ов.

← →
jack128 © (2004-01-10 14:16) [12]

> Ее что, надо каждой кнопке присваивать?
А у тя что, для каждой кнопки свой обработчик?

> А у тя что, для каждой кнопки свой обработчик?

У каждой кнопки свой обработчик. Поросто они могут совпадать, как в данном случае. Тем не менее, я не пойму, что, каждому SpeedBtn<1..100>.OnClick надо присваивать CommonClickHandlerForSpeedButtons? По-моему, легче через сообщения (если не использовать SpeedButton).

А как этот Общий обработчик OnClick для SpeedButton"ов сделать
я сто-то не понял?

Использовать не конкретную кнопку в обработчике, а
Anatoly Podgoretsky © (10.01.04 13:52) [3]

Написать общий обработчик для первой кнопки, и для каждой кнопки на обработчик указать из выпадающего списка обработчик первой

Ха-ха! :)) Особенно это удобно, если их 200!

По-моему, легче уж программно поприсваивать... :

... while i := 0 to Form1.ControlCount - 1 do if Form1.Controls[i].ClassType = TSpeedButton then TSpeedButton(Form1.Controls[i]).OnClick := CommonClickHandlerForSpeedButtons; ...

Для первого пишешь:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
(Sender as Tspeedbutton).caption:="hhh"
end;

Для всех остальных в Object Inspecrot во вкладке Events находишь свойство OnClick (Наверно должно быть, у меня почему-то есть :)

И тычешь мышкой туда (не двойной клик, а одинарный) Справа появится кнопочка со стрелочкой вниз (нажав появляется выпадающий список) и там выбираешь из всех возможных вариантов:
SpeedButton1Click

УСЁ

Удачи, как говорится

Определение какая нажата кнопка Найти похожие ветки