Access to the ListBox of tComboEdit

[Squall_FF8 0]

Hey guys,

I'm trying to implement: when the user presses ArrowDown key on tComboEdit, to open the ListBox and focus it (maybe even to select the first item).
However unlike tComboBox, the LstBox is not exposed. 
How I can get a pointer to it?

[Lajos Juhász 311]

To achieve that you can call the DropDown method of the comboedit.

 

procedure TForm4.ComboEdit1KeyUp(Sender: TObject; var Key: Word; var KeyChar:
    WideChar; Shift: TShiftState);
begin
  if key=vkDown then
    ComboEdit1.DropDown;
end;

 

Edited Wednesday at 02:20 PM by Lajos Juhász
example

[Squall_FF8 0]

Just now, Lajos Juhász said:

To achieve that you can call the DropDown method of the comboedit.

That will do only the halve of the job - to show the ListBox,, but it will not focus it (also some other operations if I have a pointer)

[Lajos Juhász 311]

In my case the itemindex was already 0 that made the selection. You can do it:

 

  if key=vkDown then
  begin
    ComboEdit1.ItemIndex:=0;
    ComboEdit1.DropDown;
  end;

 

[Squall_FF8 0]

8 minutes ago, Lajos Juhász said:

In my case the itemindex was already 0 that made the selection. You can do it:

 

  if key=vkDown then
  begin
    ComboEdit1.ItemIndex:=0;
    ComboEdit1.DropDown;
  end;

 

Thank you for taking time to help me.
I tried the code from your snippet. It works ... but not how I would like:
- the listBox is not focused

- you can't browse the list with the keyboard
- by setting ItemIndex, you change the text (in the Edit part)

[Squall_FF8 0]

Any idea how to obtain a pointer to the dropped down LiestBox?

[Squall_FF8 0]

I found the answer:
 

ListBox := TStyledComboEdit(ComboBox.Presentation).ListBox