Manual TDBLookupCombo Drop down

hi experts, l'm using delphi4 that would like to manually do drop down of TDBLookupCombo. for example, TDBLookupCombo will Drop Down when user press F3 and still remain the Drop Down when click on Button from TDBLookupCombo. how to do that...please help....urgent. thanks.
Explorer060599Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
CrazyOneConnect With a Mentor Commented:
var
  bF3Invoked: Boolean;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  if Key = VK_F3 then begin
    DBLookupComboBox1.DropDown;
    bF3Invoked := True;
  end;

end;

procedure TForm1.DBLookupComboBox1CloseUp(Sender: TObject);
begin

  if bF3Invoked then begin
    DBLookupComboBox1.DropDown;
    bF3Invoked := False;
  end;

end;
0
 
ginsonicCommented:
No idea how to drop down a DBLookupComboBox. But thinking .
0
 
Explorer060599Author Commented:
nope...what i meant was making DBLookupComboBox's DropDown box comes out.
0
 
CrazyOneCommented:
Set your Forms KeyPreview to True

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

  if Key = VK_F3 then DBLookupComboBox1.DropDown;

end;


The Crazy One
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.