Активизация после нажатия на ENTER

← →
mrAndersen © (2006-03-20 19:56) [0]

Представьте себе такую ситуацию: на форме есть Edit1, Button1.
Мне нужно чтобы при вводе некого слова в Edit1 (как будто бы это слово есть паролем), нажималась (активизировалась) кнопка Button1.
Но при этом после ввода некого слова (пароля) не сразу произошло нажатие (активизация) кнопки Button1, а только после нажатия на ENTER.
типа что-то вроде этого: (программный код не рабочий)

procedure TForm1.Edit1Change(Sender: TObject);
begin
if (Edit1.Text="Катя") and (key=13) then // как мне осуществить это
begin
Button1.Click;
…
end;
end;
13 - код клавиши ENTER

За ранние благодарен за любые предоставленные ответы.

← →
Джо © (2006-03-20 19:59) [1]

"Нажималась" и "активизировалась" это разные понятия в GUI. Ничего не понял :(

← →
san_pancho (2006-03-20 20:10) [2]

procedure TForm1.Edit1.KeyPress( . . . . );
begin
if key=#13 then
begin
Button1.Click;
. . . .
end;
end;

← →
Asail (2006-03-20 23:45) [3]

> san_pancho (20.03.06 20:10) [2]

Можно только добавить key:=0, а то пищать при нажатии на Enter будет.
Т.е. примерно так:
procedure TForm1.Edit1KeyDown( . . . . ); begin if key=VK_RETURN then begin key:=0; Button1.Click; end; end;

← →
Asail (2006-03-20 23:46) [4]

Пардон, вместо Button1.Click, надо - Button1Click

> [4] Asail (20.03.06 23:46)
> Пардон, вместо Button1.Click, надо - Button1Click

Еще раз пардон, но тоже не так ;)

Активизация после нажатия на ENTER Найти похожие ветки