Layer Management auf OOP Basis

[formosa]

Danke euch beiden. Ja so ungefähr hab ich mir das auch vorgestellt, wollte aber die ganzen Layers etwa wie folgt ansprechen

Delphi-Quellcode:

if MyLayers.Layer [idx].Type = BitmapLayer then
begin
  .... // mach ich was damit.
end
else
begin
  .... // mach ich halt was anderes damit.
end;

Grundsäztlich würde ich sagen das ich die variablen wie Offset, Text ect. in zwei verschiedenen Arrays speichern kann. Wie könnte ich denn jetzt eine Klasse gestalten damit ich von aussen beispielsweise in einem BitmapLayer mit keine Eigenschaft Text habe also zb.

Delphi-Quellcode:

if MyLayers.Layer [idx].Type = BitmapLayer then
begin
  MyLayers.Layer [idx].Text := 'Neuer Text'; // Es sollte aber keine Text Eigenschaft haben
end
else
begin
    MyLayers.Layer [idx].Text := 'Neuer Text'; // Hier jedoch schon
end;

Das ist mein eigentliches Hauptproblem.

danke

Chris