Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

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

 
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


 
Юрий Зотов   (2002-07-15 22:23) [4]

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

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

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

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.02 c
14-95521
Viatly
2002-07-02 15:54
2002.07.29
Flash


6-95473
MixerPro
2002-04-17 08:39
2002.07.29
Помогите с MNPOP3


3-95193
_dron_
2002-07-05 19:40
2002.07.29
Подскажите, плз, побыстрее две базы в Interbase (локальные)


1-95309
AlexAlex
2002-07-16 18:00
2002.07.29
Программное управление положением подписей (Mark) в TChart


1-95330
jiran
2002-07-15 17:49
2002.07.29
Как узнать, что запущенное приложение WinExec() закончилось..





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский