Mal schauen ob mir jemand helfen kann und ob es überhaupt möglich ist.
Ich würde gerne zur Laufzeit eine Komponente erstellen, die nicht fest von einer anderen abgeleitet wird, sondern ja nach Eigenschaft als TImage oder als TMemo auf der Form dargestellt wird.
Z.B. so
procedure TForm1.Button1Click(Sender: TObject);
var
mycomponent: TMyComponent;
s:string;
begin
mycomponent:=TMyComponent.Create(self);
// s:='c:\xxx\bild.bmp'; // SetData erkennt die Datei und soll nun mycomponent als TImage gestalten
s:='einfach nur ein Text'; // SetData erkennt nur Text und stellt nun mycomponent als TMemo dar.
mycomponent.SetData(s);
// einig nötige public propertys
mycomponent.top:=10;
mycomponent.left:=10;
mycomponent.Parent:=Form1;
mycomponent.visible:=true;
end;
Wie ich eine abgeleitete Komponente schreibe weiß ich, ich steige aber nicht dahinter wie man solch eine mit zwei verschiedenen Darstellungs-Arten schreiben kann
