Как узнать имя button

[BuT@JL]

Вот например у меня есть на форме button, а name у него 2 (или какое нибудь другое число, вообщем оно не известно). Мне нужно чтобы по нажатию на этот button в сообщении выводилось его name. Кто знает как это сделать подскажите пожалуста.

[zotox]

Сообщение от BuT@JL

Вот например у меня есть на форме button, а name у него 2 (или какое нибудь другое число, вообщем оно не известно). Мне нужно чтобы по нажатию на этот button в сообщении выводилось его name. Кто знает как это сделать подскажите пожалуста.

При просмотре кода уже известно его name?

(на заметку: если не ошибаюсь то name не может начинатся с цифр)

[DomiNick]

Возможно что-то вроде такого:

Procedure TForm1.Button123Click(Sender: TObject);
Begin
ShowMessage((Sender As TButton).Name);
End;

А назвать компонент числом у Вас вряд ли выйдет...

[BuT@JL]

Сообщение от DomiNick

Возможно что-то вроде такого:

Procedure TForm1.Button123Click(Sender: TObject);
Begin
ShowMessage((Sender As TButton).Name);
End;

А назвать компонент числом у Вас вряд ли выйдет...

Спасибо, это то что мне нужно. Жалко что число мельзя назвать.

[postal2]

Сделай кнопке tag и показывай его..

[Пепел Феникса]

в дизайн тайме точно нельзя...а вот в рантайме можно попробывать

[Polotenchik]

postal2 подал правильную идею! Проще воспользоваться свойством tag кнопки. Оно как раз и обзывается цифрой и обращаться к нему будет легче!

Свойство Tag (типа Integer) специально введено в каждый компонент Delphi с тем, чтобы программисты могли использовать его по своему усмотрению.

[Altera]

Сообщение от Пепел Феникса

в дизайн тайме точно нельзя...а вот в рантайме можно попробывать

Нифига! Заинтриговал ты меня, я попробовал!

procedure Tmain_form.Button5Click(Sender: TObject);
begin
   button4.Name := '1';
   tButton(findComponent('1')).Caption := 'NEW BUTTON';
end;

First chance exception at $7C812AFB. Exception class EComponentError with message '''1'' is not a valid component name'. Process EXE1.exe (3788)