Forum: Sonstige Fragen zu Delphi
by Angel4585,
3. Jun 2006
Deine Images sind ja Komponenten. Jetzt deklariere ich eine Variable vom Typ TImage, der gleiche Typ wie deine Images.
Wenn diese Variable jetzt auf nil zeigt(also nichts drin steht), wird das Bild auf welches geklickt wurde dieser Variablen zugewiesen. Also wenn du als erstes auf Image1 klickst, dann ist Bild1 und Image1 identisch.
dieses Bild1.Picture = TImage(Sender).Picture kannst du...
Forum: Sonstige Fragen zu Delphi
by Angel4585,
3. Jun 2006
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