Много кнопок, один event

← →
DenKop © (2003-03-17 18:30) [0]

Имею много кнопок и назначил им один OnClick. Как узнать по передаваемому сендеру какая кнопка сгенерировала событие?

← →
Anatoly Podgoretsky © (2003-03-17 18:30) [1]

Sender оно и есть

← →
DenKop © (2003-03-17 18:33) [2]

procedure TMainForm.Button1Click(Sender: TObject);
var Str:string;
begin
{Как в Str получить TButton.Name}
end;

← →
Dona © (2003-03-17 18:41) [3]

Str:= (Sender As TButton).Name ?

или
if (Sender AS TButton) is Button1 then Str:= "Button1";
if (Sender AS TButton) is Button2 then Str:= "Button2"; ...

← →
Anatoly Podgoretsky © (2003-03-17 18:48) [4]

TButton(Sender).Name}
При необходимости сделать проверку на принадлежность к TButton

← →
DenKop © (2003-03-17 22:44) [5]

Спасибо, врубился

← →
Vasily_ © (2003-03-17 23:07) [6]

Я делаю так:
Назначаю разные свойства Tag для кнопок отличные от нуля ( нуль присвоен по умолчанию), а затем:

Case TButton(Sender).Tag of
1:begin
end;
2:begin
end;
3:begin
end;
.
.
.
n:begin
end;
end;
По моему проще запомнить номер TButton.Tag, чем его Name.

← →
DenKop © (2003-03-18 23:00) [7]

>Vasily_

Согласен. Этот вариант мне больше нравится.

← →
Anatoly Podgoretsky © (2003-03-18 23:29) [8]

Вариант с тегами грешит возможностями ошибки, а для того, что бы получить имя вообще ни теги не нужны, ни какие нибудь проверки, кроме соответстся Sender TButton и то не обязательно, можно генерировать ошибку.
Пример Dona © (17.03.03 18:41)

>Anatoly Podgoretsky
Будем стараться следить за тегами. Кнопок очень много и проверять каждую очень громоздко, а с тегами это всего один Case of и всё.

← →
VD601 (2003-03-19 22:00) [10]

А не думал о том, чтобы сравниваит указатели?
var PBtn: ^TButton; begin PBtn := Sender as TButton; if (PBtn = Button1) //просто беззнаковые целые! ...

>VD601
Опять это громоздкий if...

Как говорит Anatoly Podgoretsky - это оптимальный вариант в любом случае. Я таким образом проверял 101 кнопочку! :) и быстро и качественно!

С уважением, Hecker

Много кнопок, один event Найти похожие ветки