Hi,
ich habe jetzt in meiner Klasse (siehe diesen Post:
http://www.delphipraxis.net/internal...t.php?t=109480) den Constructor weiter ausgebaut. Ich möchte dort 7 Images in ein Array erstellen. Dieses Array soll dann von einer anderen
Unit aus verwendet werden können um Bilder zu zuweisen die später von der ScrollBox benötigt werden. Ich bin an die Sache so rangegangen:
Delphi-Quellcode:
...
...
type
TElementList =
class(TScrollBox)
constructor Create(AOwner: TComponent);
override;
function Add(ElemType: TElementType; Content:
String):Integer;
procedure Refresh;
procedure Move(OldPosition, NewPosition: Integer);
end;
var
Icons:
Array of TImage;
//hier wird der Array deklariert
...
...
constructor TElementList.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
BevelInner := bvNone;
BevelKind := bkFlat;
BevelOuter := bvLowered;
BorderStyle := bsNone;
Items := TObjectList.Create;
//hier erstelle ich die images, beim ersten bild bleibt der debugger stehen und es hagelt eine AV
Icons[0] := TImage.Create(Self);
Icons[1] := TImage.Create(Self);
Icons[2] := TImage.Create(Self);
Icons[3] := TImage.Create(Self);
Icons[4] := TImage.Create(Self);
Icons[5] := TImage.Create(Self);
Icons[6] := TImage.Create(Self);
end;
Und so versuche ich Bilder in den Array zu packen:
Delphi-Quellcode:
Icons[0].Picture := text.Picture;
Icons[1].Picture := image.Picture;
Icons[2].Picture := chart.Picture;
Icons[3].Picture := table.Picture;
Icons[4].Picture := syntax.Picture;
Icons[5].Picture :=
html.Picture;
Icons[6].Picture := media.Picture;
Welches Problem hat der Debugger hier?