morgens mittags abends

[turboPASCAL]

Delphi-Quellcode:

procedure TFormX.FormCreate...
var
  TimeNow: TDateTime;
  Hour: Word;                // Hour = aktuelle Stunde
  d: Word;                   // d = Dummy
begin
  DecodeTime(Hour, d,d,d,d); // Zeit holen und decodieren Stunde;Minute;Sec.;MilliSec.
  
  if Hour < 12 then           // sind die Stunden kleiner 12 ?
  begin
    Self.Color := clYellow;   // Ja, Farbe des Formulares Gelb
  end else                    // Nein? Also grosser 12
  if Hour < 18 then           // sind die Stunden kleiner 18 ?
  begin
    Self.Color := clRed;      // Ja, Farbe des Formulares Rot
  end else                    // Nein, also grosser 18
  begin
    Self.Color := clBlue;     // Jupp, das wirds Blau
  end;
end;