Indem du eine eigene Klasse erstellst, die von TEdit abgeleitet ist:
Delphi-Quellcode:
type
TMyEdit = class (TEdit)
private
FMeineEigenschaft : string ;
published
property MeineEigenschaft : string read FMeineEigenschaft write FMeineEigenschaft ;
end ;
Wenn es nun noch darum geht, dass diese TMyEdit Komponente auch noch in der Toolpalette als Komponente auftaucht, so muss diese registriert werden und in ein
Package eingebunden werden.
Delphi-Quellcode:
interface
// Klassendefinition
procedure Register ;
implementation
procedure Register ;
begin
RegisterComponents('Standard', [TMyEdit]);
end ;
// .. Klassenimplementierung
end.