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

Вниз

Как заставить выпасть ComboBox по кнопке Enter?   Найти похожие ветки 

 
DenisS   (2003-04-09 16:20) [0]

Как заставить выпасть ComboBox по кнопке Enter?

if Key=#13 then
SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0);

не работает. Почему?


 
Андреев Павел   (2003-04-09 16:25) [1]

А если попробовать DroppedDown := true ?


 
DenisS   (2003-04-09 17:20) [2]

Моргает и закрывается.


 
Zz_   (2003-04-09 17:41) [3]

procedure Tf.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if(Key=13)then begin
if(SendMessage(ComboBox1.Handle, CB_GETDROPPEDSTATE, 0, 0)=0)then begin
SendMessage(ComboBox1.Handle, CB_SHOWDROPDOWN, 1, 0);
Key := 0;
end;
end;
end;

procedure Tf.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13)then Key := #0;
end;


 
NA   (2003-04-09 19:38) [4]

Key обнулять иногда бывает оччень важно ;)



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
14-67557
Sergqwe
2003-04-04 16:03
2003.04.21
Тупой вопрос!


4-67606
Psibug2
2003-02-19 12:52
2003.04.21
Окно своими руками, пригодное для Opengl...


9-67069
Asteroid
2002-11-22 18:38
2003.04.21
Коллекция 3D объектов


4-67619
AlDid
2003-02-20 00:03
2003.04.21
Почему у меня не работает функция GetLogicalDrivestrings?


4-67609
SunSay
2003-02-18 21:54
2003.04.21
Оконная процедура как метод класса...