Форум: "Основная";
Текущий архив: 2003.04.21;
Скачать: [xml.tar.bz2];
ВнизКак заставить выпасть 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c