Erst mal vielen Dank für die Antworten.
Ich habe mal den Versuch unternommen Speicherplatz für Instanzen bereit zustellen:
(noch sehr rudimentär und seeehhr unschön)
Delphi-Quellcode:
type
rIchMerkMirwas = Record
IntMerken : integer;
End;
TmyMemo = class helper for TCustomMemo
private
function GetMerken: integer;
procedure SetMerken(const Value: integer);
public
procedure Init;
published
property Merken : integer read GetMerken write SetMerken;
end;
...
var
myMerkArray : array [0..10] of rIchMerkMirwas;
...
{ TmyMemo }
function TmyMemo.GetMerken: integer;
begin
result := myMerkArray[Tag].IntMerken;
end;
procedure TmyMemo.Init;
begin
end;
procedure TmyMemo.SetMerken(const Value: integer);
begin
myMerkArray[Tag].IntMerken := value;
end;
Das ist natürlich erst mal nur eine Machbarkeitsstudie
und das Vorhalten der Daten in einem Globalen-Array ist ja nun nicht wircklich Objektbezogen.
Gibt es eine Möglichkeit das Init direkt und automatisch nach dem Create der Original-Klasse aufzurufen? Da könnte man dann ja viel einfacher eine Verwaltungsstruktur für die Daten implementieren.
Gruss wo