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;

[nahpets]

Hallo,

wie wär's denn damit?

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Color := IfThen(Frac(Now) < 0.33,clYellow,IfThen(Frac(Now) < 0.66,clBlue,clRed));
end;

(Die Unit Math muss eingebunden werden.)

[Just Buisness]

danke

[Larsi]

Ich hoffe du versuchst auch zu verstehen was da steht und kopierst es nicht einfach. :)

[Die Muhkuh]

:lol: Das sagt grade der richtige...

[SirThornberry]

Könntest du bitte noch den Titel des Beitrages ändern?

[BullsEye]

@Just Business:
- Vllt solltest du dir wirklich erstmal ein paar Tutorials angucken. Da sind einige gut und vor allem hilfreiche bei.
- Ich weiß, wir haben alle mal klein angefangen. Aber du solltest, wenn du eine Frage hast, diese besser formulieren und auch ein wenig mehr auf Rechtschreibung achten.

@Larsi:
Vllt nen bissel freundlich als dein erster Post in diesem Thread? Er ist nunmal ein Anfänger.

@Die Muhkuh:

Muss das sein? Ich weiß, ich bin da auch ein wenig deiner Meinung, aber man kann es auch übertreiben. Und solche Aussagen sind auch nicht für den, der Hilfe benötigt, sehr hilfreich. ;)