Bild zur Laufzeit vergrößert anzeigen und wieder schließen
Hallo,
welche Möglichkeit gibt es ein Bild vergrößert zur Laufzeit auf Click in einem extra Fenster darzustellen? Soll ich ein gewöhnliches Formular verwenden oder geht das auch mit einem Frame etc ? Ist das der richtige Ansatz?
Delphi-Quellcode:
Leider wird kein Bild angezeigt.
procedure TForm1.Image1Click(Sender: TObject);
var Bildform: TForm; Img: TImage; begin with Bildform do begin BildForm := TForm.Create(Self); try Caption := 'BildForm'; Width := 640; Height := 480; Img := TImage.Create(BildForm); Img.Align := alClient; Img.Stretch := true; //Falls Bild existiert anzeigen if FileExists('c:\temp\pic1.jpg') then Img.Picture.LoadFromFile('c:\temp\pic1.jpg') else Img.Picture := nil; ShowModal; finally end; // Img.Free; // Img Free; // Bildform end; end; Und wie kann ich mit welcher Methode beim Anklicken des Bildes das Fenster wieder schliessen, um die Form und das Image wieder freizugeben |
Re: Bild zur Laufzeit vergrößert anzeigen und wieder schließ
Img.Parent noch setzen. Weiterhin würde ich erst Create machen und dann "with Bildform do".
Zum Schließen: Img.OnClick. |
Re: Bild zur Laufzeit vergrößert anzeigen und wieder schließ
Ok, funktioniert.
Hilf mir bitte nochmal mit dem OnClick Ereignis. Wie ruf ich das denn aus der Routine auf? Steh gerade auf der Leitung. :? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:49 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