Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Form zur Laufzeit mit Bitmap erzeugen (https://www.delphipraxis.net/41427-form-zur-laufzeit-mit-bitmap-erzeugen.html)

kalmi01 3. Mär 2005 08:27


Form zur Laufzeit mit Bitmap erzeugen
 
Hi,
ich hätte da gern mal ein Problem.
Ich möchte zur Laufzeit ein neues Form erzeugen (was auch funktioniert),
auf dem sich eine Bitmap befindet, in die ich mit LoadFromFile ein BMP
lade.

Delphi-Quellcode:
     procedure TForm1.Button1Click(Sender: TObject);
        var
          ZoschImg      : TImage;
          ZoschForm     : TForm;
        begin
          ZoschForm            := Tform.Create(Self);
          ZoschForm.Width      := Form1.Width;
          ZoschForm.Height     := Form1.Height;
          ZoschForm.Left       := Form1.Left;
          ZoschForm.Top        := Form1.Top;
          ZoschForm.BorderIcons := [];
          ZoschForm.BorderStyle := bsNone;
          ZoschForm.Show;

          ZoschImg := TImage.Create(ZoschForm);
          ZoschImg.Picture.Bitmap.LoadFromFile('E:\DATEN\Bilder\pinguin2.bmp');
          zoschimg.Show;
          zoschimg.refresh;

          ZoschForm.BringToFront;
          ZoschForm.refresh;
          Form1.Hide;
        end;
Fehler gibt es keine, aber auch kein Bild.
Das Bild ist natürlich an dem gegebenen Pfad vorhanden.
Mach ich das gleiche auf einem zur Entwicklungszeit erstellten Form inkl. Image, dann funktioniert es.
Irgendwie steck ich in einer mentalen Endlosschleife, egal was ich versuche, nichts will klappen.

Hiilfe
Michael

Muetze1 3. Mär 2005 08:30

Re: Form zur Laufzeit mit Bitmap erzeugen
 
Moin!

Delphi-Quellcode:
ZoschImg := TImage.Create(ZoschForm);
ZoschImg.Parent := ZoschForm;
ZoschImg.Picture.Bitmap.LoadFromFile('E:\DATEN\Bilder\pinguin2.bmp');
MfG
Muetze1

kalmi01 3. Mär 2005 08:36

Re: Form zur Laufzeit mit Bitmap erzeugen
 
Danke !

Gruß
Michael


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:18 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz