morgens mittags abends

[Just Buisness]

wie gehts das das Formular z.bsp morgends ist gelb ist mittags blau und abends grün

[Blackheart]

Systemzeit prüfen und entsprechend färben.

[turboPASCAL]

In dem man die Uhrzeit abfragt. now etc.

[The Riddler]

Zitat:

wie gehts

Danke gut.

Frag halt die aktuelle Uhrzeit ab (Delphi, TimeToStr(now) z.B.) und setze dann entsprechend die Farbe des Formulars.

[SirThornberry]

Kannst du deinem Beitrag bitte einen aussagekräftigen Titel geben der das Problem ansatzweise beschreibt? :) Danke

[Just Buisness]

das problem ist nur ich bin ein anfängerund weiß nich wie das geht

[Larsi]

Du hast beschrieben bekommen wie du einer Form eine Farbe zuweist und grad wurde dir geschrieben wie die Uhrzeit ausgelesen wird. Das kann doch jetzt nicht mehr so schwer sein.

[SirThornberry]

Wenn sich die aussage auf den Titel bezieht lass ich das nicht durchgehen. Wenn sich die Aussage auf den Rest bezieht lege ich dir die Tutorials von http://www.delphi-treff.de/ ans Herz. Um die Grundlagen zu lernen sind diese perfekt und helfen dir später auch andere größere Probleme lösen zu können.
Auch über die Suchfunktion findet man sicher einiges zur Uhrzeit. Noch ein Tipp. Vieles beim programmieren ist eindeutig in englischer Sprache benannt. Also einfach schauen ob es für Zeit/Uhrzeit/etc. etwas englisches gibt was sich in der Hilfe findet.

[divBy0]

Zitat:

Zitat von Just Buisness

das problem ist nur ich bin ein anfängerund weiß nich wie das geht

Also ehrlich gesagt, Anfänger können auch verständliche Fragen stellen. :)

Sag doch mal, was du bis jetzt hast und wo es genau klemmt.

[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;