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


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