Einzelnen Beitrag anzeigen

Benutzerbild von ap_computers
ap_computers

Registriert seit: 24. Nov 2009
26 Beiträge
 
Turbo Delphi für Win32
 
#2

Re: bei klick auf bild dieses neu in originalgroesse oeffnen

  Alt 19. Dez 2009, 13:01
Machs am besten so:

Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin
  Form2.Image1.Picture:= Image1.Picture;
  Form2.Image1.Left:= 0;
  Form2.Image1.Top:= 0;
  Form2.Image1.AutoSize:= true;
  Form2.BorderStyle:= bsNone; // Formular ohne Taskleiste
  Form2.AutoSize:= true;
  Form2.Position:= poScreenCenter;
  Form2.Visible:= true;
  Form1.Enabled:= false;
end;
Auf Form2 setzt du ein TImage und auf deine MainForm (oder Form1) erzeugst du die Image1Click-Methode.

Delphi-Quellcode:
procedure TForm2.Image1Click(Sender: TObject);
begin
  Form1.Enabled:= true;
  Form2.Visible:= false;
end;
Auf der Form2 erzeugst du für dieses Image wieder eine Image1Click-Methode, damit du später wieder auf das Hauptformular kommst.
  Mit Zitat antworten Zitat