| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Активизация после нажатия на ENTER [D5, XP]

mrAndersen ©   (2006-03-20 19:56:00) 

Представьте себе такую ситуацию: на форме есть 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-21 00:08:00) [1]

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

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

---

Asail   (2006-03-20 23:46:00) [2]

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

---

Asail   (2006-03-20 23:45:00) [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;


---

san_pancho   (2006-03-20 20:10:00) [4]

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

---

Джо   (2006-03-20 19:59:00) [5]

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

---

Наверх