ShowMessage mit Hilfe von Datum in ListView

[Tpercon]

Dann halt so:

Delphi-Quellcode:

procedure Tfrm_terminplaner_main.Timer2Timer(Sender: TObject);
var
  i: integer;
begin
    for i:=0 to lv_eintraege.Items.Count - 1 do begin
      if (StrtoDate(lv_eintraege.Items[i].SubItems[1])=date) and (StrtoTime(lv_eintraege.Items[i].SubItems[2])>=time) then begin
        ShowMessage('Ihr Termin ('+lv_eintraege.Items[i].SubItems[0]+') beginnt!');
      end;
    end;
end;

Mit dem >= geht's seltsamerweise. Gibt jetzt aber schöne viele Fenster. Daher ja mein Vorschlag, das du dir Merken mußt, ob er schon aktiv war oder nciht.