フリーソフト

TSplitter

[BCB] TSplitterでsnapされた状態で起動したい

TSplitterにおいてAutoSnapをTrueにすると、コンポーネントのサイズがMinSize以下となったときにサイズを0にしてくれます。このSnapされた状態で起動する方法です。

Panel1を見えない状態で起動する例です。

  Panel1->Height=1;
  Splitter1->Perform(WM_LBUTTONDOWN,0,0);
  Splitter1->Perform(WM_MOUSEMOVE,MK_LBUTTON|MK_MBUTTON,0);
  Splitter1->Perform(WM_LBUTTONUP,0,0);