Funktion geht nicht über FindComponent

[jAcK oRsEn]

Wieso geht das so nicht? wenn rechts = 3 und sender = image2 ist! und

Delphi-Quellcode:

begin
tImage(FindComponent('image'+rechts)).Picture := (sender as TImage).picture;
(sender as TImage).picture := nil;
end;

Aber so

Delphi-Quellcode:

begin
image3.Picture := image2.picture;
image2.picture := nil;
end;

[Steve]

Haste mal beim Debuggen geprüft, ob Sender wirklich vom Typ TImage ist?
Mehr fällt mir spontan auch nich ein

edit: da oben steht ja, dass sender=image2 ist mein fehler... wer lesen kann...
Stephan

[easywk]

Hallo.

Zitat:

FindComponent('image'+rechts)).Picture

Die Frage ist, was für ein Typ ist rechts? Oben schreibst du rechts wäre 3, als String? Wenn rechts eine Zahl ist dann musst du folgendes machen:

Delphi-Quellcode:

begin
tImage(FindComponent('image'+IntToStr(rechts))).Picture := (sender as TImage).picture;
(sender as TImage).picture := nil;
end;

cu easywk