PageControl - Tabs um Schließen-Symbol erweitern

[Back2Code]

Zitat von Björn Ole:

Da hast du dein Event.

Delphi-Quellcode:

type
  TPageControl_ = class(TPageControl)
  private
    FOnScroll: TNotifyEvent;
  protected
    procedure WndProc(var Message: TMessage); override;
  published
    property OnScroll: TNotifyEvent read FOnScroll write FOnScroll default nil;
  end;

  TPageControl = class(TPageControl_);

{ TPageControl_ }

procedure TPageControl_.WndProc(var Message: TMessage);
begin
  inherited;
  if (Message.Msg = WM_HSCROLL) and Assigned(FOnScroll) then
    FOnScroll(Self);
end;

Soll das in die Vcl.ComCtrls Unit??