morgens mittags abends

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

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.