Anpassung der Größe des Forms beim laden eines Bildes.

[himitsu]

Image.Picture.Bitmap.xxx geht natürlich nur, wenn es sich auch wirklich um ein Bitmap handelt. (wenn nicht, dann wird das Bild zerstört/gelöscht und durch ein leeres bitmap ersetzt)

Ich bin mir jetzt nicht genau sicher wie, aber Image.Picture.Width oder Image.Picture.Graphic.Width sollte gehn.
Nja, statt erst im OnActivate kann man die Größe der Form und des TImage auch gleich direkt nach dem Laden des Bildes anpassen.

[Popov]

Image.Picture.Width geht. Und nein, ich würde es nicht irgendwo anders anpassen. Dann lagerst du den entscheidenden Code für die Unit in eine andere Unit aus. Möglich, aber versteh und wundere dich mal in einem Jahr warum sich das Formular an das Bild von Zauberhand anpaßt

Und weil wir schon da sind noch zwei Tipps. Das Formular mit dem Bild muß ja wieder geschlossen. Möglichkeit 1:

Delphi-Quellcode:

procedure Tfrm_Bild.Image1Click(Sender: TObject);
begin
  Close
end;

Dann braucht man nicht ein Close einbauen oder auf den roten Button klicken. Besser ist aber wenn das Formular von Zauberhand verschwindet. Dazu darf das Bild-Formular nicht ShowModal gestartet werden, sondern Show:

Delphi-Quellcode:

  //frm_Bild.ShowModal
  frm_Bild.Show

Dann in Bild-Formular unter FormDeactivate Close einbauen

Delphi-Quellcode:

procedure Tfrm_Bild.FormDeactivate(Sender: TObject);
begin
  Close;
end;

Das Bild wird sichtbar und wenn man danebenklickt, dann wird es automatisch geschlossen

[Flash68]

Danke Popov, deine Tips haben geholfen. Habe den ersten benutzt.

Das mit dem ins Bild clicken hatte ich schon von selbst erkannt, wollte ja nur das Bild sehen und keinen Rand oder einen schliessen Button