Fun programm

[Jerrycan]

HI,

Ich will son fun programm programmieren das drei messages ausgibt das formular öffnet ein label in Grün mit schwarzen hintergrund nach 1 sek. das zwiete label mit schwarz und grünen hintergrund.
Also das das flackert. Wobei ich die zeit noch varrieiren kann in der das wechselt. Das mit den messages is ken problem nur das "flackern" hab ma ein bild gemacht wie das ungefähr aussehen soll.


[URL=http://g.imageshack.us/img267/unbenannt1yw7.gif/1/]
Und neben bei noch möchte ich das das formular so groß es das es über dem ganzen bildschirm geht und mann keinen rand mehr sieht wie bei spielen im volltbild modus(ohne beenden buttons und co.)
Hier erstma der code

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm5 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}



procedure TForm5.FormCreate(Sender: TObject);

begin
ShowMessage ('Du looser denks wirklich ich gebe es dir?');
ShowMessage ('NEEEEEEEE hehehe')    ;
ShowMessage ('Und jetzt noch viel spaß mit nem Virus auf deinem PC!')    ;
Label2.Visible:=True;
Label1.Visible:=False;
Sleep(100);
Label1.Visible:=True;
Label2.Visible:=False;
Sleep(100);
Label2.Visible:=True;
Label1.Visible:=False;
Sleep(100);
Label1.Visible:=True;
Label2.Visible:=False;


end;

end.

und das das dan halt unentlich lang flackert bis mans schließt

[K1ngC0bra]

Klar geht das Boderstyle bsnone oder so, code in letzter Zeit wenig in Delphi

[CovHax]

Ich weiss nicht ob ichd ichr ichtig verstanden habe, aber wenn du einfach nur willst, dass der Hintergrund in von dir einstellbaren Intervallen die Hintergrunf farbe ändert (und der Text, was ansich das gleiche ist), dann..

Nimmst du dir einfach 2 Timer, stellst sie beide auf die gleiche Zeit ein, deaktivierst den zwetien, in den ersten schreibst du dann Timer2.enabled := true; eine Zeile dadrunter Timer1.enabled := false;
In den 2. Timer dann halt nur andersherum (timer1.enabled := true; Timer 2.enabled := false
Nun deaktivieren und aktivieren sich die Timer immer schnell gegenseitig.
Dann schribst du in den einen Timer noch form1.color := clred (oder ne andere Farbe) und in den anderen Timer form1.color := clgreen..
Das wars schon.. Du kannst es natürlich auch mit ner If Verzweigung machen, auch nicht schwer..

If form1.color = clred then
form1.color := clgreen
else:
form1.color := clred

Das gleich natürlich noch mit dem Label.. label1.font.color (so wars glaub ich?!)...

[K1ngC0bra]

if ist schöner
jo meine auch das es font.color war

greez

[Jerrycan]

gut! gelöst!
die if verzweigung hat mir geholfen
thx für eure antworten!