Bild in Vollbild anzeigen

[XeRo]

hmmm...das ist jetzt eine sehr unschöne methode, aber so würd ich es machen...

Delphi-Quellcode:

var
  Form1: TForm1;
  Form2: TForm;
implementation

(...)

procedure TForm1.Button1Click(Sender: TObject);
var bild:TImage;
begin
bild:=TImage.Create(self);
Form2:=TForm.Create(self);

with form2 do
 begin
  borderstyle:=bsnone;
  top:=0; left:=0;
  width:=screen.width;
  height:=screen.Height;
  parent:=form2;
 end;
bild.Parent:=form2;
bild.Align:=alclient;
bild.Picture.LoadFromFile('C:\hallo.bmp');
bild.Stretch:=true;

form2.Show;
form1.Hide;
end;

(...)

//die form kann dann wieder mit einem timer vernichtet werden...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form2.Close;
Form1.Show;
end;

noch fragen?