Editfeld mit automatischer Listbox

[City Light]

Ich hab da mal was probiert..

Code:

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ListBox1.Visible := True;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Edit1.Text := ListBox1.Items.Strings[ListBox1.ItemIndex];
  ListBox1.Visible := False;
end;

Ich hoffe ich konnte dir helfen?

MFG

[Hansa]

Hi CityLight,

das da sieht gut aus, :dancer2: kann es aber erst morgen ausprobieren. Wenn der Mauscursor über das Feld wandert -> Listbox auf ? Das würde der Dümmste kapieren, sofern es auch ohne Maus, also mit Tastatur so geht. Jetzt habe ich das aber erst mal zurückgestellt. Zuviele Programm-Baustellen. :mrgreen:

Gruß
Hansa

[City Light]

Mit der Tastatur würde es dann so gehen...

Code:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ListBox1.Visible := True;
end;

Gruß
City Light