Erstellen eines eigenen Property

[Helmi]

Hallo,

Ich hab folgende Frage:

Ich möchte in eine Komponente eine Property programmieren mit der man folgendes eingeben kann: "(5.3)" (die Zahlen können varieren).

Wie kann ich dies verwirklichen?

Vor allem, wie kann ich bei der Eingabe (z. b. im Objektinspektor) prüfen lassen, ob das, was dort eingegeben wurde, dem Format entspricht?

mfg
Helmi

[SirThornberry]

du musst dem Property eine SetMethode zuweisen und darin prüfen ob das Format richtig ist. Beispiel:

Delphi-Quellcode:

  TMyClass = class(TComponent)
  private
    ffloatproperty: Extended;
    procedure fSetValue(AValue: Extended);
  published
    property MeinProperty: Extended read ffloatproperty write fSetValue;
  end;

procedure TMyClass.fSetValue(AValue: Extended);
begin
  if (AValue <> ffloatproperty) and (AValue im richtigen Format) then
  begin
    ffloatproperty := AValue;
  end;
end;