Danke, funktioniert jetzt mit
Delphi-Quellcode:
...
private
...
procedure DateChanged(Sender: TObject);
...
constructor TDateEditPrevNext.Create(AOwner: TComponent);
begin
FOnChange := nil;
...
DateEdit.OnChange := Self.DateChanged; // DAS hatte gefehlt!
...
procedure TDateEditPrevNext.DateChanged(Sender: TObject);
begin
if Assigned(FOnChange) then
begin
FOnChange(Self);
end;
end;
Ich hoffe, dass da nicht noch eine Falle versteckt ist...