Двойной клик по RXsplitter

[Spot]

На форме есть 2 панели (как в Total Commander) между ними RXsplitter (у обычного Splitter нет события ondblclick)
Panel1.align=alClient
Panel2.align=alRight
RXsplitter1.align=alRight
При двойном клике, хочу, чтобы RXsplitter разделил Панели по центру окна.

procedure TForm1.RxSplitter1DblClick(Sender: TObject);
begin
Panel2.Width:=round(Form1.Width/2);
end;

Запускаю, премещаю сплиттер немного налево, делаю двойной клик, сплиттер очень быстро перемещается в центр и сразу возвращается обратно.
Оказывается если второй клик не отпускать, то сплиттер остается в центре, как только отпускаешь кнопку, тут же возвращается. Это глюк или что?

[Скандербег]

Лучше использовать штатный сплиттер. У RxSplitter недоделки.

  //на форме
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Splitter1: TSplitter;
...

implementation

{$R *.dfm}

type
  THackSplitter = class(TSplitter)
    property OnDblClick;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  THackSplitter(Splitter1).OnDblClick := RxSplitter1DblClick; //можно оставить тот же обработчик
end;

procedure TForm1.RxSplitter1DblClick(Sender: TObject);
begin
  Panel1.Width:=round(Form1.Width/2);
end;

Panel1.align=alLeft //если это левая панель
Splitter1.align=alLeft
Panel2.align=alClient
Splitter1.ResizeStyle=rsUpdate //или rsNone
последнее обязательно, иначе при двойном клике будет оставаться полоса на прежнем месте, где сплиттер находился.