Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Игнорировать нажатие   Найти похожие ветки 

 
zzet ©   (2002-08-12 21:23) [0]

Мастера, что-то запутался, как сделать что бы BitBtn находясь в фокусе, не реагировала на нажатие Enter?
Form1.KeyPreview = true;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If Key=VK_RETURN then Key := 0;
end;
неработает Ж:-((
Так же неработает и обработчик на BitBtn.KeyDown
подскажите, плз...


 
AL2002 ©   (2002-08-12 21:49) [1]

А кейпресс на битбатоне?


 
Ученик ©   (2002-08-12 22:16) [2]

procedure CMDialogKey(var Message : TCMDialogKey); message CM_DIALOGKEY;

procedure TForm1.CMDialogKey(var Message : TCMDialogKey);
begin
if Message.CharCode = VK_RETURN then
Message.CharCode := 0;
inherited
end;


 
zzet ©   (2002-08-13 09:54) [3]

Благодарю. Пример by Ученик работает. Спасибо.



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
1-71258
oguz
2002-08-12 10:12
2002.08.22
Как сделать ссылку на сайт(e-mail) в Delphi


1-71157
ValeX
2002-08-13 15:03
2002.08.22
надо восстановить функцию


14-71382
Yakudza
2002-07-24 14:46
2002.08.22
Привет из Коктбеля !


14-71378
Igit
2002-07-29 09:58
2002.08.22
Я фигею


1-71169
Const@ntiN
2002-08-13 18:21
2002.08.22
КАК СДЕЛАТЬ...?????????????????????? НЕЕЛП МЕЕ ПЛИЗ!!!!!!!!!!!!!!