"Als gelesen markieren" per Timer realisieren

[CalganX]

Ich glaube da kann ich helfen:

Delphi-Quellcode:

procedure TForm1.ListView1Click(Sender: TObject);
begin
  Timer1.Interval := iWait; // eine Konstante die die Sekunden/Millisekunden enthält, wie lange gewaretet werden soll...
  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  {K.A. wie man die Schriftart ändert; zumindest tue dies hier!}
end;

procedure TForm1.ListView1Change(Sender: TObject);
begin
  Timer1.Enabled := false;
end;

So, alles aus'm Kopf... Sollte aber dennoch funktionieren...

Chris