Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by negaH,
4. Sep 2003
So nun mal im Ernst, deine Klassen sind sehr unglücklich deklariert.
type
TBitmaps = class(TPersistent)
private
FBitmaps: array of TBitmap;
function GetBitmap(Index: Integer): TBitmap;
procedure SetBitmap(Index: Integer; Value: TBitmap);
protected
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by negaH,
4. Sep 2003
Das muß zu einem Stacküberlauf führen.
Schau mal, TBitmaps enthält die Properties mit deinen 9 Bitmaps. Dazu benutzt du write/read Methoden. Besonderst die read Methoden wie GetObenLinks greifen auf die eigene Eigenschaft ObenLinks zu und geben das als Resultat zurück. Da ObenLinks eine Property ist die GetObenLinks aufruft und die wiederum auf die Eigenschaft ObenLinks zugreift die die read...