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