Einzelnen Beitrag anzeigen

easywk

Registriert seit: 9. Jul 2003
Ort: Schwanewede
117 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Funktion geht nicht über FindComponent

  Alt 24. Jun 2004, 08:39
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
Björn
if all else fails - read the instructions
  Mit Zitat antworten Zitat