Moin,
ich habe eine kleine Komponente (ein Datumscontrol)), die ich um ein OnChange erweitern möchte. So sieht ihre Deklaration aus:
Delphi-Quellcode:
type
TDateEditPrevNext = Class(TPanel)
DateEdit: TDateEdit;
Procedure DateEditExit(Sender: TObject);
Procedure ButtonPrevClick(Sender: TObject);
Procedure ButtonNextClick(Sender: TObject);
private
// Es gibt keinen optisch passenden Button, aber ein Panel tut's auch
ButtonPrev: TPanel;
ButtonNext: TPanel;
function GetDate: TDate;
procedure SetDate(Datum: TDate);
public
property Date: TDate read GetDate write SetDate;
Constructor Create(AOwner: TComponent); override;
Destructor Destroy; override;
end;
Wenn ich den Weg über
Delphi-Quellcode:
private
...
FOnChange: TNotifyEvent;
...
published
property OnChange: TNotifyEvent read FOnChange write FOnChange;
gehe, funktioniert das nicht. TPanel hat ja auch kein OnChange, dass hier durchgereicht werden könnte.
Aber wie implementiere ich das richtig?