自定义Tabset实现DBClick

unit CustTabSet;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Tabs;

type
  TCustTabSet = class(TTabSet)
  private
    FOnDblClick: TNotifyEvent;
    procedure WMLBUTTONDBLCLK(var Message: TWMLBUTTONDBLCLK); message WM_LBUTTONDBLCLK;
  protected
    procedure DblClick; dynamic;
  public
    { Public declarations }
  published
    property OnDblClick: TNotifyEvent read FOnDblClick write FOnDblClick;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TCustTabSet]);
end;

{ TCustTabSet }

procedure TCustTabSet.DblClick;
begin
  if Assigned(FOnDblClick) then FOnDblClick(Self);
end;

procedure TCustTabSet.WMLBUTTONDBLCLK(var Message: TWMLBUTTONDBLCLK);
begin
  DblClick;
end;

end.