Checkbox zur unterscheiung von Anzeigeflächen

[DeddyH]

Delphi-Quellcode:

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

Aber da Du ja in beiden Fällen Image1 befüllst, kannst Du das auch kürzen:

Delphi-Quellcode:

procedure TForm1.Image1Click(Sender: TObject);
begin
  image1.Picture.LoadFromFile('C:\bsp.jpg');
  if checkbox.Checked then
    grossansicht_img.Picture.LoadFromFile('C:\bsp.jpg');
end;