Eingabehilft wie in Delphi-Quelltext

[Sharky]

Hai Micha,

eine Möglichkeit wäre z.B. eine Combobox genau über das Edit zu legen und dann mit diesem Code spielen:

Delphi-Quellcode:

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

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

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

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
 Edit1.Text := ComboBox1.Text;
 Edit1.SetFocus;
end;

[EDIT] zweiter Versuch es richtig zu verschieben [/edit]