So schwer ist das eigentlich nicht.
Sagst du.
Trotzdem hab ich zu dem Quelltext noch 'n paar Fragen.
Delphi-Quellcode:
inherited Create(AOwnerAndParent); //Hier nix ändern, ja? Später bei der Anwendung der Komponente einfach dann grp1 und grp2 einsetzen.
Parent:=AOwnerAndParent;
Left:=ALeft;
Top:=ATop;
Width:=AWidth;
EditLabel.Caption:=ACaption;
Font.Name:=FDefaultFontName;
EditLabel.Font.Name:=FDefaultFontName;
Font.Size:=FDefaultFontSize; //Diese Eigenschaft soll sich ja nicht ändern. Ich bin mir jetzt nicht sicher, wo ich dann eingebe, dass die Schriftgröße 9 sein soll.
EditLabel.Font.Size:=FDefaultFontSize;
Visible := AVisible; //Show bzw. Hide
end;
Ich weiß, ich stell mich sicherlich gerade brodeldoof an.
Dann noch eine Frage. Ich kann ganz normal dann Free verwenden, um die Komponenten wieder freizugeben, ja?
Wie gesagt, das Ableiten ist nicht meine Stärke.