Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

igorntk © (2009-03-17 11:52:00)
c помощью кнопки "Enter"?

pavel_guzhanov (2009-03-17 13:58:00) [1]
поставь у кнопки свойство Default в true.

igorntk (2009-03-17 13:57:00) [2]

> 12 (17.03.09 13:53) [8]

> if Key = #13 then

Спасибо!

12 (2009-03-17 13:53:00) [3]
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:17:00) [4]
Прошу прощения за неточную постановку вопроса. К примеру, в поиске Windows заполняем строку поиска (Edit) и вместо того, чтобы нажать кнопку Поиск (Button1) нажимаем клавишу EnterНачинает производиться поиск. Интересует что происходит при нажатии клавиши Enter.
OnChange, OnKeyDown - не подходит, потому как только начинаю делать изменения Enter сразу срабатывает. А мне нужно, чтобы, набрав в TEdit слово, щелнув Enter-ом - это слово нашлось

Anatoly Podgoretsky (2009-03-17 12:52:00) [5]
> igorntk (17.03.2009 12:11:04) [4]

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

немо2 (2009-03-17 12:18:00) [6]

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

в

> TEdit.OnKeyDown
>

igorntk (2009-03-17 12:11:00) [7]
В TEdit пишется значение, после чего нажатием кнопки это значение находится из таблицы.
Table1.Locate('kod',edit1.Text,[])
Как можно заменить действие кнопки нажатием
клаивши Enter?

немо2 (2009-03-17 11:58:00) [8]
куда? осуществить запись информации из TEdit c помощью кнопки "Enter"

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

b@v (2009-03-17 11:56:00) [9]

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

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

Рамиль (2009-03-17 11:55:00) [10]
TEdit.OnKeyDown

VK_ENTER

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »