Как заставить Splitter реагировать на двойной щелчок?

[Polugut]

Как заставить Splitter реагировать на двойной щелчок?
На форме две панели, разделённые сплиттером. Я хочу, чтоб при двойном щелчке, сплиттер прижимался к краю, закрывая одну из панелей с содержимым. Но увы, в списке событий компонента TSplitter нет OnDblClick.
Пока только придумал внизу сплиттера прицепить картинку с треугольником, при двойном щелчке на котором левая панель закрывается.
ОС - MacOS X 10.5.5
Lazarus - 0.9.28.2

[Mr.Smart]

Небольшой финт ушами позволит это сделать:

Код: Выделить всё

  TForm1 = class(TForm)
    Splitter1: TSplitter;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    procedure DblClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

type
  THackSplitter = class(TSplitter);

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  THackSplitter(Splitter1).OnDblClick:=@DblClick;
end;

procedure TForm1.DblClick(Sender: TObject);
begin
  ShowMessage('DblClick');
end;

[Polugut]

Спасибо за науку!