Eingabehilft wie in Delphi-Quelltext

[Sharky]

Sage das doch gleich.

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if (Key = 32) and (ssCtrl in Shift) then
  begin
   ComboBox1.Top := (Sender As TEdit).Top + (Sender As TEdit).Height + 10;
   ComboBox1.Left := (Sender As TEdit).Left;
   ComboBox1.Visible := True;
   ComboBox1.SetFocus;
  end;
end;

Zusätzlich würde ich noch für alle Edits ein OnEnter Ereigniss einfügen:

Delphi-Quellcode:

procedure TForm1.Edit1Enter(Sender: TObject);
begin
 ComboBox1.Visible := False;
end;