Показать сообщение отдельно
  #2  
Старый 05.08.2008, 11:03
PashaXP PashaXP вне форума
Новичок
 
Регистрация: 05.02.2008
Сообщения: 81
Репутация: 15
По умолчанию

Кидаешь на форму 15-ть кнопок и к примеру 1- TEdit.
Затем кликаешь, поочередно, два раза в кнопку и видишь на экране -
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 //Здесь пишешь код, например
 Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
end;
предварительно в инспекторе обьектов компонента Edit1 в свойстве Text сотри Edit1и поставь ноль, либо програмно присвой Edit1.Text:=0;

и так далее обрабатывай щелчек каждой кнопки...
Ответить с цитированием