Цитата:
|
Сообщение от PashaXP
Кидаешь на форму 15-ть кнопок и к примеру 1- TEdit.
Затем кликаешь, поочередно, два раза в кнопку и видишь на экране -
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
//Здесь пишешь код, например
Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
end;
предварительно в инспекторе обьектов компонента Edit1 в свойстве Text сотри Edit1и поставь ноль, либо програмно присвой Edit1.Text:=0;
и так далее обрабатывай щелчек каждой кнопки... |
Павел, Вы слегка не так меня поняли. Я хочу "красиво" это сделать. А не писать 15 обработчиков для каждой кнопки.