wieso markiert es kein Text?

[marabu]

Hallo,

eine Präfixsuche geht auch so:

Delphi-Quellcode:

procedure TDemoForm.EditChange(Sender: TObject);
begin
  with Sender as TEdit do
    ListBox.ItemIndex := ListBox.Perform(LB_FINDSTRING, -1, Integer(PChar(Text)));
end;

Grüße vom marabu