Скачать: CL | DM;

Активизация после нажатия на 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

---

← →
Джо ©   (2006-03-21 00:08) [5]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c