Может кто подскажет?

← →
Jo (2002-07-15 11:11) [0]

Подскажите, как можно реализовать панельку типа Tools как в Photoshop7. Я так понял - это отдельная форма в режиме bsNone. Но при этом ее можно перемещать. И не понятно как сделано, что когда на нее кликаешь, главное окно не теряет фокус.

← →
Andrey007 (2002-07-15 11:27) [1]

Когда на неё кликаешь, то после клика надо вызвать SetFocus для главного окна. А вопрос "как реализовать" не понял.

← →
olookin © (2002-07-15 14:22) [2]

Если я не ошибаюсь, это свойство формы BorderStyle:=bsToolWindow. У меня, по крайней мере, это форма с заголовком и перемещаемая но не получает фокуса.

← →
Proton © (2002-07-15 20:39) [3]

Photoshop - это MDI приложение.
BorderStyle:=bsDialog

Это так называемый плаваюший тулбар. В Delphi делается просто мгновенно.

1. Кидаете на форму ControlBar.
2. Ставите ему Align=alTop.
3. На ControlBar кладете ToolBar.
4. На Toolbar"е создаете пару кнопок.
5. Ставите Toolbar"у DragKind=dkDock.

И все. Запустите программу и таскайте тулбар мышкой. Как только Вы вытащите его с ControlBar"а, он сам собой превратится в ту самую плавающую форму, о которой Вы говорили. Затащите обратно - он снова придочится к ControlBar"у.

Если на форму бросить еще 3 ControlBar"а (с alLeft, alRight и alBottom), то тулбар сможет дочиться к любой стороне формы.

Может кто подскажет? Найти похожие ветки