Neue property für TEdit erstellen

[qb-tim]

Hi,

wie kann ich eine neue property für TEdits definieren?

[Jelly]

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.