02.07.2009, 12:45
|
|
Участник форума
Регистрация: 02.07.2008
Сообщений: 132
Провел на форуме:
1035284
Репутация:
52
|
|
A_V
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
case (Sender as Tbutton).Tag of
1:ShowMessage((Sender as Tbutton).Caption);
2:ShowMessage((Sender as Tbutton).Caption);
end;
end;
за место ShowMessage твой код 1 или код 2 но свойство tag у Buton'ов установи заранее! и на вкладке events в обработчике событий поставь у баттонов этот обработчик!
|
|
|