30.05.2007, 15:55
|
|
Участник форума
Регистрация: 10.08.2006
Сообщений: 147
С нами:
10395573
Репутация:
94
|
|
так:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ResultEdit.Text:=ResultEdit.Text+IntToStr(1);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ResultEdit.Text:=ResultEdit.Text+IntToStr(2);
end;
end.
желательно поставь запрет редактирования ResultEdit на прямую, найди в свойствах ResultEdit свойство Enabled и поставь false.
остальным: лучшеб помогли и ответили чем тупить и флудить
Последний раз редактировалось Exile1985; 30.05.2007 в 15:58..
|
|
|