![]() |
|
#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 для этого компонента
|