enter

← →
mrAndersen © (2006-03-20 23:52) [0]

На форме есть Edit1, Button1.
Мне нужно чтобы при вводе некого слова в Edit1 нажималась кнопка Button1. Но при этом не сразу произошло нажатие кнопки Button1, а только после нажатия на ENTER.
То есть, я ввожу в Edit1 слово «катя», и сразу же происходит нажатие на клавишу Button1, а мне нужно только тогда когда я наберу «катя» и нажму ENTER.
За ранние благодарен за любые предоставленные ответы.

← →
Luarv (2006-03-20 23:55) [1]

Вставить в edit1.onchange
if edit1.text="katya" then button1.setfocus;
Оно?

← →
API © (2006-03-21 02:51) [2]

Button1.Default := true; procedure TForm1.OnButton1Click(Sender: TObject); begin if (Edit1.Text = "katya") then begin // действия end; end;

← →
mrAndersen © (2006-03-21 02:56) [3]

Частично правильно, но данный пример переводит фокус на Button1 и тогда при нажатии на ENTER производятся действия. А если нету кнопки Button1. То есть, мне нужно само нажатия, как бы, подтверждения того что я ввел именно «катя», а не, например «катясх».

← →
ASoft (2006-03-21 02:59) [4]

обработчик onkeydown d у Edit

← →
mrAndersen © (2006-03-21 03:03) [5]

> обработчик onkeydown d у Edit

Пожалуйста, поподробнее. Буду весьма благодарен, за любой пример.

← →
EvS © (2006-03-21 09:14) [6]

тебе уже ответили
http://delphimaster.net/view/2-1142873793/
что непонятно?

← →
ASoft (2006-03-21 09:20) [7]

может так?
....
procedure MyForm.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=13 then begin If Edit1.Text = "katya" then Button1Click(Self); //или выполнить, типа, какю-либо проверку end; end;

← →
ASoft (2006-03-21 09:22) [8]

млин повторился, наверное, не видел
>http://delphimaster.net/view/2-1142873793/

У меня ошибки выскакивают при реализации этого кода:

procedure MyForm.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=13 then
begin
If Edit1.Text = "katya" then
Button1Click(Self); //или выполнить, типа, какую-либо проверку
end;
end;

просит убрать точку после «procedure MyForm», после того как я убираю точку, не хочет восприниматься ни Edit1.Text ни Button1Click, то есть пишет:
[Error] Unit1.pas(32): Undeclared identifier: "Edit1"
Что делать?

может какие то модули нада подключить

enter Найти похожие ветки