hallo inherited
dein code interessiert mich
Delphi-Quellcode:
procedure TForm8.Edit1Change(Sender: TObject);
var i, OldLength: Integer;
begin
if Edit1.Text='' then exit;
for i := 0 to Liste.Count-1 do
begin
if copy(Liste.Items[i], 1, Length(Edit1.Text))=Edit1.Text then
begin
OldLength:=Length(Edit1.Text);
Edit1.Text:=Liste.Items[i];
Edit1.SelStart:=OldLength;
Edit1.SelLength:=Length(Edit1.Text);
exit;
end;
end;
end;
sharky schreibt:
Zitat:
Du hast ein OnChange Ereigniss in dem Du den Inhalt des Edits änderst. Was passiert also? Das OnChange ruft sich wieder selber auf.
wie muß ich diesen code ändern was sharky meint, komme nicht drauf `?
mfg vader