mehrere Elemente in einer Schleife bearbeiten

[Volker Z.]

Hallo,

Zitat:

Delphi-Quellcode:

procedure Tworldmapsource.FormCreate(Sender: TObject);
var i : integer;
begin
for i:=low(1) to high(5) do
  THotSpot(FindComponent('Hotspots[i]')).HoverColor := clwhite;

end;

Das kann doch nicht funktionieren oder hast Du eine Component, die Hotspot[i] heißt? Versuch mal

Delphi-Quellcode:

  c := THotSpot(FindComponent('Hotspots[' IntToStr (i) ']'));
  if Assigned (c) and (c is THotSpot) then
    c.HoverColor := clwhite;

Gruß