Checkbox zur unterscheiung von Anzeigeflächen

[DeddyH]

Wenn ich nicht wüsste, was Du meinst, hätte ich jetzt kein Wort verstanden.

[mquadrat]

Der Vollständigkeit halber

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
if checkbox.Checked
  then
    begin // <---- fehlt
      image1.Picture.LoadFromFile('C:\bsp.jpg'); // <--- Das Semikolon hat auch noch gefehlt
      grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg') <---- Operator oder Simikolon fehlt
    end //<----- fehlt auch
  else
    image1.Picture.LoadFromFile('C:\bsp.jpg');
end;