ComboBox помогите плиз!!!

← →
Part (2002-11-21 10:09) [0]

Мастера, я снова нужна Ваша помощь!! Как открывать combobox при нажатии Enter ?

← →
Smithson © (2002-11-21 10:14) [1]

Combobox1.DroppedDown := True // Открыть
Вставть в обработчик клавиатуры

← →
Song © (2002-11-21 10:35) [2]

CB_SHOWDROPDOWN

← →
Part (2002-11-21 10:40) [3]

2 song

прости ламера :) а как этим пользоваться ? если можно небольшой пример

← →
Song © (2002-11-21 10:55) [4]

ComboBox1.Perform(CB_SHOWDROPDOWN,Integer(True),0);

← →
Part (2002-11-21 11:43) [5]

procedure TForm_R.MyKeyDown2(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
ii: integer;
begin

if key = vk_return then
DBLookupComboBox4.Perform(CB_SHOWDROPDOWN,Integer(True),0);

end; я пытаюсь так но не работает ??

← →
Игорь Шевченко © (2002-11-21 11:45) [6]

DBLookupComboBox не имеет никакого отношения к ComboBox

RTFS: dbctrls.pas

← →
Part (2002-11-21 12:30) [7]

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_return then
ComboBox1.Perform(CB_SHOWDROPDOWN,Integer(False),0);
end;

так тоже не работает. Народ, подсобите кто чем может :) плиииз

← →
Song © (2002-11-21 12:42) [8]

Я тебе уже подсобил. Мой пример у меня работает (только что проверил - вынудили Вы меня)

← →
Игорь Шевченко © (2002-11-21 12:44) [9]

wParam
Specifies whether the drop-down list box is to be shown or hidden. A value of TRUE shows the list box; a value of FALSE hides it.

Вот ты его и прячешь :-)

ComboBox1.Perform(CB_SHOWDROPDOWN,Integer(True),0);

← →
AndrewVolkov (2002-11-21 13:06) [10]

to Игорь Шевченко
to Part

а откуда вы знаете про Perform( CB_SHOWDROPDOWN,Integer(True),0);
где такое описывается???

← →
Song © (2002-11-21 13:08) [11]

Из хэлпа (я тоже кстати знаю :-) )

← →
Игорь Шевченко © (2002-11-21 13:11) [12]

AndrewVolkov (21.11.02 13:06)

win32.hlp ComboBox messages

← →
Part (2002-11-21 14:57) [13]

открывать то я его открываю (если на кнопку вешаю ComboBox1.Perform(CB_SHOWDROPDOWN,Integer(True),0);

), а вот чтобы лист окрывался не alt+стрелка вниз, а Enterom не могу. Я понимаю что всем надоел, но мне ну ооочень нужно!!!

← →
Part (2002-11-21 15:24) [14]

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = vk_shift) or (key = vk_return) then
ComboBox1.Perform(CB_SHOWDROPDOWN,Integer(True),0);
end;

вот в таком варианте shift открывает, а ентер не хочет. Никто не подскажет в чем тут фишка ?

Вот тебе кусок примера:

var Form1: TForm1; Flag: Boolean=False; implementation {$R *.DFM} procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key=VK_RETURN) then if (not Flag) then begin ComboBox1.DroppedDown:=True; Flag:=not Flag; end else begin ComboBox1.DroppedDown:=False; Flag:=not Flag; end; end; procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Flag) and (Key=VK_RETURN) then ComboBox1.DroppedDown:=False; end;

Ты всё ещё не сделал это открытие?

Вот вставь этот обработчик, всё будет работать:

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

← →
Part (2002-11-21 15:47) [18]

спасибо выручили :)

ComboBox помогите плиз!!! Найти похожие ветки