Как осуществить запись информации из TEdit

← →
igorntk (2009-03-17 11:52) [0]

c помощью кнопки "Enter"?

← →
Рамиль © (2009-03-17 11:55) [1]

TEdit.OnKeyDown

VK_ENTER

← →
b@v © (2009-03-17 11:56) [2]

> Как осуществить запись информации из TEdit [D7, XP]

а куда записать то ?

← →
немо2 (2009-03-17 11:58) [3]

куда? осуществить запись информации из TEdit c помощью кнопки "Enter"

можно ж и на кнопке "Enter" написать фломастером значение из TEdit

← →
igorntk (2009-03-17 12:11) [4]

В TEdit пишется значение, после чего нажатием кнопки это значение находится из таблицы.
Table1.Locate("kod",edit1.Text,[])
Как можно заменить действие кнопки нажатием
клаивши Enter?

← →
немо2 (2009-03-17 12:18) [5]

> а куда записать то ?

в

> TEdit.OnKeyDown
>

← →
Anatoly Podgoretsky © (2009-03-17 12:52) [6]

> igorntk (17.03.2009 12:11:04) [4]

А ты как на кнопку нажимаешь, случайно не Энтером ли?

← →
igorntk (2009-03-17 13:17) [7]

Прошу прощения за неточную постановку вопроса. К примеру, в поиске Windows заполняем строку поиска (Edit) и вместо того, чтобы нажать кнопку Поиск (Button1) нажимаем клавишу EnterНачинает производиться поиск. Интересует что происходит при нажатии клавиши Enter.
OnChange, OnKeyDown - не подходит, потому как только начинаю делать изменения Enter сразу срабатывает. А мне нужно, чтобы, набрав в TEdit слово, щелнув Enter-ом - это слово нашлось

← →
12 (2009-03-17 13:53) [8]

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then showmessage("Ентер!")
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then showmessage("Ентер! мамой клянусь")
end;

← →
igorntk (2009-03-17 13:57) [9]

> 12 (17.03.09 13:53) [8]

> if Key = #13 then

Спасибо!

поставь у кнопки свойство Default в true.

Как осуществить запись информации из TEdit Найти похожие ветки