|
#1
|
|||
|
|||
VK_Return
Здравствуйте, подскажите, пожалуйста про VK_Return.
Есть одно поле Edit и один Label нужно: при нажатии на Enter значение лейбла меняется на содержимое Edit. Все, что нашел на форуме не подходит. |
#2
|
|||
|
|||
Это же элементарно...
Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then Label1.Caption:=Edit1.Text; end; |
#3
|
|||
|
|||
Это где писать надо?
|
#4
|
|||
|
|||
Выделяешь Edit1 на форме, слева в инспекторе объектов жмешь на вторую закладку(events), там дважды щелкаешь справа в поле от события OnKeyPress, перебросит в редактор кода, в созданную процедуру, там добавляешь код:
Код:
if key = #13 then Label1.Caption:=Edit1.Text; |
#5
|
|||
|
|||
Я переписывал с этого форума, но там не описано куда это прописывать.
А OnKeyPress говорит, что "if key = #13 then Label1.Caption:=Edit1.Text;" - is not a valid identifier |
#6
|
|||
|
|||
Весь код покажи, тогда скажу в чем дело..
|
#7
|
|||
|
|||
Я уже немного понял, что надо просто дважды щелкнуть на event-е.
А вот код: Код:
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then ADOQuery1.SQL.Clear(); ADOQuery1.SQL.Text:='INSERT INTO table1 ([Name]) VALUES (:Param1)'; ADOQuery1.Parameters.ParamByName('Param1').Value:=Edit1.Text; Label1.Caption:=Edit1.Text; end; end. |
#8
|
|||
|
|||
попробуй так
Код:
procedure TForm11.Edit2KeyPress(Sender: TObject; var Key: Char); begin Label1.Caption:=Edit1.Text; end; |
#9
|
|||
|
|||
В лэйбл записывает, а вот в таблицу не хочет.
|
#10
|
|||
|
|||
А AdoQuerry.Execute за тебя кто будет делать? И вообще это не правильный подход. Есть компоненты с приставко DB - DBTextEdit, DBLabel и тому подобное, так вот для работы с БД предпочтительнее использовать их. Советую поднабраться побольше теории.
|
#11
|
|||
|
|||
Цитата:
|
#12
|
|||
|
|||
Спасибо за советы!
|