OnChange einer Selbserstellten Komponente

[SirThornberry]

Also bei mir gibts onchange gar nicht - nur OnChanging und OnChangingEx
für Onchanging

Delphi-Quellcode:

  TYourNewTyp = class(TComponent)
  private
    procedure fOnUpDownChangingProc(Sender: TObject; var AllowChange: Boolean);
    [...]
  public
    constructor Create(AOwner: TComponent); override;
  [...]

procedure TYourNewTyp.fOnUpDownChangingProc(Sender: TObject; var AllowChange: Boolean);
begin
  //hier der Source was beim Changing passieren soll
end;
[...]
constructor TYoueNewTyp.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  [...]
  UpDownX.OnChanging := fOnUpDownChangingProc;
end;

für ONChangingEx

Delphi-Quellcode:

  TYourNewTyp = class(TComponent)
  private
    procedure fOnUpDown1ChangingExProc(Sender: TObject; var AllowChange: Boolean; NewValue: Smallint; Direction: TUpDownDirection);
    [...]
  public
    constructor Create(AOwner: TComponent); override;
  [...]

procedure TYourNewTyp.procedure fOnUpDown1ChangingExProc(Sender: TObject; var AllowChange: Boolean; NewValue: Smallint; Direction: TUpDownDirection);
begin
  //hier der Source was beim ChangingEx passieren soll
end;
[...]
constructor TYoueNewTyp.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  [...]
  UpDownX.OnChangingEx := fOnUpDownChangingExProc;
end;