OnChange einer Selbserstellten Komponente

[xavior]

Hi! Ich hab ich aber neues Problem! Ich hab eine TEdit & eine TUpDown-Komponente erstellt (TEdit.Create ... BlaBla), dann hab ich die TUpDown-Komponente mit der TEdit-Komponente Associatet. Jetzt wollte ich der TUpDown-Komponente eine OnChange-Procedure zuweisen, aber ich weis garnicht wie ich das machen soll!?

[S2B]

Prozedur zuweisen Da müsste es doch was geben, das was taugt... :zwinker:

[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;

[xavior]

Oh ich meine doch OnChange!

Edit: Ach ja: PS.: Danke!