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:
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;
Leider wird kein Bild angezeigt.
Und wie kann ich mit welcher Methode beim Anklicken des Bildes das Fenster wieder schliessen, um die Form und das Image wieder freizugeben