"Als gelesen markieren" per Timer realisieren

[Yheeky]

Hi,

ich möchte gerne folgende Funktion in mein Programm einbauen. Ich habe eine Liste von Einträgen in einer ListView. Wenn ich einen Eintrag selektiere, der eine bestimmte Schriftformatierung hat (Fette Schrift), soll dieser nach 5 Sekunden eine andere Formatierung bekommen (Normale Schrift). Wie kann ich das realisieren?
Ich meine das, was Outlook bei E-Mail Nachrichten macht - genau das möchte ich auch gerne machen...würde mich freuen, wenn mir jemand helfen könnte.

Gruß Yheeky

[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

[Yheeky]

Sorry, hatte mich da in etwas kompliziertem verrannt.
Die Lösung ist natürlich absolut korrekt und auch sehr einfach - hätte ich drauf kommen müssen *schäm*. Sorry für die dumme Frage, aber danke trotzdem für die Antwort :D

Gruß Yheeky