Delphi-Quellcode:
var
Bild1 : TImage;
procedure TForm1.ImageClick(Sender : TObject):
begin
if (Bild1 <> nil)and(Bild1<>TImage(Sender)) then
begin
if Bild1.Picture = TImage(Sender).Picture then
begin
ShowMessage('Die Bilder sind gleich');
Bild1.Enabled:=False;
TImage(Sender).Enabled:=False;
end
else
begin
ShowMessage('Die Bilder sind unterschiedlich');
Bild1.Visible:=False;
TImage(Sender).Visible:=False;
end;
Bild1:=nil;
end
else
begin
Bild1:=TImage(Sender);
end;
end;
Suchst du sowas?
Das prüft jetzt glaub nicht wirklich ob die Bildchen gleich sind.. aber das Prinzip iss klar oder?
musst halt schaun wie du deine Bildchen noch vergleichst..
