Вниз
Скачать: CL | DM;

Как сделать чтоб нажатие entera было равно нажатию на Button1?   Найти похожие ветки 

← →
SeriousSam ©   (2004-02-02 20:48) [0]

Как сделать чтоб нажатие entera когда текстовый курсор находится в Edit1 было равно нажатию на Button1?


← →
Тимохов ©   (2004-02-02 20:50) [1]

Посмотри, у баттона в инспекторе объектов что-то типа Default, точно не помню, а дельфа закрыта.


← →
SeriousSam ©   (2004-02-02 20:52) [2]

сейчас...


← →
Slavian ©   (2004-02-02 20:52) [3]

Я то же подробности не помню, но помоемому можно и так...
Form1.Edit1KeyDown(...);
begin
if ky=vk_return then button1.click;
end;


← →
SeriousSam ©   (2004-02-02 20:54) [4]

Тимохов. Default есть... но тогда кнопка нажимается даже если курсор к примеру в Edit2..


← →
SeriousSam ©   (2004-02-02 20:56) [5]

Slavian. чего то я смысл не понимаю...


← →
Slavian ©   (2004-02-02 20:56) [6]


> if ky=vk_return then button1.click;

там не ky, а key!


← →
Тимохов ©   (2004-02-02 20:56) [7]

Про Edit2 в ТЗ не было ни слова.
Тогда делай как в 3.


← →
Slavian ©   (2004-02-02 20:57) [8]

чё ты не понимаешь??? когда идёт нажатие кнопки Return(Enter) в Edit"e, тогда и нажимется программно Button1!!!


← →
SeriousSam ©   (2004-02-02 21:01) [9]

спасибо. пойду пробовать.


← →
тихий вовочка   (2004-02-03 07:08) [10]

А если Edit"ов много, и нужно срабатывание кнопки всегда, то у Form делаешь KeyPreview true и в обработчике FormOnKeyUp ставишь if key=vk_return then FormOnButtonClick(self)



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

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



Память: 0.46 MB
Время: 0.015 c
1-38923
Ramario
2004-02-04 11:35
2004.02.13
Работа с файлами


1-38909
Silver_
2004-02-04 11:11
2004.02.13
Можно ли подгружать Ресурсы в Run Time


1-38936
BlackLord2003
2004-02-03 14:31
2004.02.13
TWebBrowser


1-38786
Лысый
2004-02-03 12:34
2004.02.13
QReport


1-38803
Eli
2004-02-02 13:27
2004.02.13
ClipBoard.AsText - ????? вместо букв




   Наверх