Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.02;
Скачать: 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 вся ветка

Текущий архив: 2006.04.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.051 c
15-1141977108
начинающий
2006-03-10 10:51
2006.04.02
UI исключительно при помощи COM


2-1142436458
ctudent
2006-03-15 18:27
2006.04.02
Помогите разобраться!


2-1142486225
serg11111111
2006-03-16 08:17
2006.04.02
Как определить текущую директоию


1-1141243262
Конопелька
2006-03-01 23:01
2006.04.02
Runtime Err in DLL Library Module on Terminate !


3-1139309659
WellSlava
2006-02-07 13:54
2006.04.02
сохранение отчета Fast Report в БД