Thema: FreePascal Mehrere Images --> Imagex ???

Einzelnen Beitrag anzeigen

a.def
(Gast)

n/a Beiträge
 
#6

AW: Mehrere Images --> Imagex ???

  Alt 31. Mär 2017, 21:13
Vergiss das Array.

=>

Delphi-Quellcode:
 for i := 1 to 5 do // begin in der nächsten Zeile. Das hier ist schließlich DELPHI ;)
  begin
   if Assigned((FindComponent('Image' + SysUtils.IntToStr(i)) as TImage))
    (FindComponent('Image' + SysUtils.IntToStr(i)) as TImage).Visible := True;
  end;
Ich würde das Ganze aber eher über eine TObjectList<TImage> machen.
  Mit Zitat antworten Zitat