![]() |
|
|
#1
|
|||
|
|||
|
как мне при клике в поле Edit вставить значение
procedure TForm1.button2click(Sender: TObject); begin Edit1.Caption := '100'; так не работает Последний раз редактировалось Adrenalin666, 30.09.2010 в 16:11. |
|
#2
|
|||
|
|||
|
с заменой того что там есть в поле Edit
Последний раз редактировалось Adrenalin666, 30.09.2010 в 16:13. |
|
#3
|
||||
|
||||
|
Если я првильно понял, то когда Edit1 получает по себе "левый клики" необходимо пихнуть туда 100ку.
Код:
procedure TForm1.Edit1Click(Sender: TObject); begin Edit1.Text:='100'; end; |
|
#4
|
||||
|
||||
|
У TEdit нету свойства Caption, у него Text:
Код:
Edit1.Text := '100'; |
|
#5
|
||||
|
||||
|
Чтобы при клике на Edit1 в него прописывался текст используй событие OnClick для этого компонента
|