Bild in Vollbild anzeigen

[Tubos]

Hallo;

in meinem Prog möchte ich den ganzen Bildschirm durch ein Bild verdecken.
Man kann ja...
- borderstyle:=bsnone
- windowstate:=wsmaximized
machen, aber man müsste vorher ja alle elemente verstecken.
Oder ein zweites Formular erstellen...
Geht das nicht auch einfacher?

[fkerber]

Hi!

So?
http://www.swissdelphicenter.ch/de/showcode.php?id=552

Ciao fkerber

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

[Tubos]

@xero: mein prog hat registerkarten und ein paar buttons, die überall zu sehen sind. Das wäre sehr viel aufwand, ich müsste alles einzeln auf visible:=false setzen

Der Code bei Swissdelphicenter ist zwar gut, weil er auch das fenster auf StayOnTop setzt, aber mein Hauptfenster ist ja voller Steuerelemente: Buttons, Tabsheets, etc....
Kann ich nicht irgendwie die TImage-Komponente dahinter legen und bei bedarf das hauptfenster auf Vollbild setzen?

Das in-vollbild-setzen würde ich dann ganz einfach machen:

Delphi-Quellcode:

BorderIcons := []; 
BorderStyle := bsNone;
WindowState := wsMaximized;

[XeRo]

Zitat von Tubos:

...ich müsste alles einzeln auf visible:=false setzen

ähhm...nein...setz den code so wie er ist in dein prog ein.
das geheimniss: eine form wird während der laufzeit erzeugt(mit nur einem bild drauf), das andere fenster wird versteckt und das neu erzeugte wird gezeigt...
da musst du nichts verstecken...

[Tubos]

Danke!

Das ist wahrscheinlich der eleganteste Weg!

[SirThornberry]

du könntest auf das Hauptform ein Panel machen das invisible ist. Um das Bild zu zeigen maximierst du einfach das fenster (so wie in deinem ausgangspost beschrieben), streckst das Panel auf die Formgröße und auf dem Panel kannste ja dann dein TImage oder was auch immer du hast darstellen

[XeRo]

Das ist aber etwas umständlich oder?