![]() |
|
|
#1
|
|||
|
|||
|
Здравствуйте, подскажите, пожалуйста про 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
|
|||
|
|||
|
Спасибо за советы!
|