Edit.OnChange-Event für eine bestimmte Zeit verhindern

[juergen]

Erst einmal Danke für die Unterstützung!
@stahli,
Dein Ansatz hört sich interesaant an, ich wüßte nur leider nicht wie ich sowas umsetzen könnte.

@Bummi,
das habe ich schon , da man optional die Live-Suche auch abschalten kann und ich dann auf Enter reagiere.
Das ist auch richtig schnell.

@Sir Rufo, WM_CLOSE
naja mit Timer da tue ich mich etwas schwer, da ich hier schon gelesen hatte, wo Timer "verteufelt" wurden.
Den Ansatz von WM_Close vertehe ich so aber auch nicht.
Der Timer ist auf einen Intervall von 250 eingestellt und Enabled := False...
Dann wird im OnChange der Timer auf "False" gesetzt und anschließend auf true....
Im OnTimer-Event dann das Suchen ausführen.
Meinem Verständnis nach würde die Suche doch in einer Endlosschleife ausgeführt werden, oder nicht?

Vllt. habe ich mich auch nicht so deutlich ausgedrückt.
Angenommen ich tippe 8 Zeichen in 2 Sekunden in das Edit ein. Dann wird 8x meine Suche angeschmissen, weil diese im OnChange des Edits hinterlegt ist.
Ich hätte gern, dass nur dann die Suche ausgeführt wird wenn nach einer Eingabe im Edit mindestens 250ms(?) vergangen sind.

Edit: Die Live-Suche startet erst dann, wenn mindestens 3 Zeichen eingegeben wurden.

[Sir Rufo]

Delphi-Quellcode:

procedure TForm1.Edit1Change(...)
begin
  Timer1.Enabled := false;
  Timer1.Enabled := ( Length( Edit1.Text ) >= 3 );
end;
procedure TForm1.Timer1Timer(...)
begin
  Timer1.Enabled := False;
  DoSuche( Edit1.Text );
end;

[stahli]

Also "Timer ist böse" würde ich so auch nicht so gelten lassen.
Ich klaue gleich mal beim Sir.
Als ungefährerer Ansatz:

Delphi-Quellcode:

 procedure TForm1.Edit1Change(...)
 begin
   BreakFlag := True;
   Timer1.Enabled := False; // Timer wird neu gestartet, keine Suche bei schneller Eingabe
   Timer1.Enabled := True;
 end;

 procedure TForm1.Timer1Timer(...)
 begin
   Timer1.Enabled := False;
   BreakFlag := False;
   DoSuche( Edit1.Text );
 end;

 procedure DoSuche;
 begin
   for I := 0 to Items.Count - 1 do
   begin
     ...
     Application.ProcessMessages;
     if BreakFlag then
       Break;
   end;
   BreakFlag := False;
 end;

[juergen]

Supi, so funktioniert es!
Da hätte ich auch selbst drauf kommen müssen, dass ich im OnTimer zuerst Timer1.Enabled := False setzen muss!

Vielen Dank und eine Gute N8!

[himitsu]

Alternativ gäbe es auch noch die Lösung, welche über eine Optimierung der Suche, das Suchergebnis unbemerkt schnell liefert.