Bilder tauschen

[xxsasch4xx]

hi, wie bekomme ich es den hin das durch klick auf den button die beiden bilder getauscht werden?
ich habe ein bild im anhang hochgeladen wie ich es meine.

[DeddyH]

Versuch es einmal mit einem Dreickestausch: zuerst die Grafik des ersten Bildes in einer Variablen ablegen, dann dem ersten Bild das zweite Bild zuweisen und dann dem zweiten Bild das gemerkte in der Variablen.

[xxsasch4xx]

was für einen variablen typ brauch ich den dafür?

[DeddyH]

Wenn sich die Grafiken in Bitmaps konvertieren lassen würde ich TBitmap nehmen.

[xxsasch4xx]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var bmp1,bmp2: TBitmap;
begin

bmp1:=image1.picture;
...

end;

da kommt immer ne fehlermeldung inkompatible typen:'TBitmap' und 'Tpicture'

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var temp: TBitmap;
begin
  temp := TBitmap.Create;
  try
    temp.Assign(Image1.Picture.Graphic);
    Image1.Picture.Graphic.Assign(Image2.Picture.Graphic);
    Image1.Refresh;
    Image2.Picture.Graphic.Assign(temp);
    Image2.Refresh;
  finally
    temp.Free;
  end;
end;

[xxsasch4xx]

danke klappt

[xxsasch4xx]

ich würde ja gern mein programm erweitern das es nur noch die bilder tauscht wenn man auf das bild klickt wo man ein bild sieht also wenn das weisse geklickt wird soll nichts passiern
im anhang ist ein bild wie ich es meine

[DeddyH]

Du könntest die Tag-Eigenschaft von TImage dafür gebrauchen. Wenn weiß, dann 0, ansonsten 1 (oder umgekehrt, wie es Dir lieber ist).