Здравствуйте, товарищи!
Подскажите. Есть форма программы. В правом верхнем углу 3 кнопки: свернуть, свернуть в окно, закрыть. При запуске программы окно разворачивается во весь экран, и его нельзя двигать мышью. Только, когда мы свернем его в окно.
Задача Надо убрать первые 2 кнопки. И чтобы двигать мышью его нельзя было (удерживая за заголовок).

Как делал: установил false для biMinimize, miMaximize в BorderIcons формы. Осталась одна кнопка - крестик (закрыть). Так вот теперь программу можно двигать мышью и при двойном клике на заголовке она сворачивается в окно. Эти 2 возможности мне не нужны. Как быть, что делать? 
Благодарю.

а надо только:
BorderStyle поставить bsToolWindow...

С размерами то все просто. А вот чтобы двигать нельзя было - похоже тут только перехватчики событий писать и вручную а место возвращать.

двигаться то будет все равно, захватив курсором Border.

Добавлено через 1 минуту и 46 секунд
Тем паче можно и BorderStyle = bsDialog

я просто увидел описание действий товарища и выложил более простой вариант... + еще форму нельзя будет двойным щелчком сворачивать...

Что бы не перемещалась за заголовок.




И никуда она родная не денется с подводной лодки.

Да, с BorderStyle = bsDialog окно стало как вкопанное, ни двойной клик не работает, и захватить за границу не получается, но куда-то исчезло меню. с bsToolWindow панель инструментов плохо отображается. 

Как отловить двойной клик по заголовку? Ф-цию или обработчик можно. 

Кидай на форму ApplicationEvent. В обработчике OnMessage

Да ненадо ничего - поставьте ограничения размеров и не будут размеры меняться.

А от перетаскивания только мтеод перехвата работать будет походу...

bsToolWindow?
Что-то вы мудрите, ребята... я бы просто bsNone поставил, но раз уж такая пьянка...

Итак, ставим:

BorderIcons

biMinimize = false
biMaximize = false

BorderStyle = bsSingle

При этом пропадут злощастные кнопки, да и размер будет фиксирован.
Насчет событий на перемещение, думаю все вполне законно.

ps. имхо просто нужно убрал заголовок.

Автор об этом ничего не сказал - следовательно заголовок нужен.



Чем не устраивает сразу BorderStyle = bsDialog ?

Да, похоже. Только я вот не знаю, как остановить действие двойного клика по заголовку. Что надо поставить вместо ShowMessage ("Ура!"); ?

То, что ты хочешь сделать при двойном клике на заголовке  

Вроде бы хочу сделать так, чтобы по двойному клику форма не сворачивалась в окно. Т.е. первоначально она развернута во весь экран, а двойной клик по заголовку сворачивает ее. Причем уже после обработки ApplicationEvent1Message. Думаю, может, вместо "Ура!" можно написать что-то, что остановит сворачивание...   

petlyura, попробуй написать вместо ShowMessage ("Ура!"); 

Тут схема такова:

Сначала, выполняется WindowState = wsMaximized, после чего выходим из обработчика, и только потом срабатывает сворачивание в окно. Как-то надо по-другому отлавливать.

petlyura, попробуй WindowState = wsMaximized в OnResize формы

Так, решил все-таки. ApplicationEvent выкинул за ненадобностью. А в OnResize засунул 

на wsMaximized прога не срабатывала как нужно.
Из наблюдений. Первый двойной клик на заголовке после запуска программы приводит к мерцанию окна (окно быстро сворачивается в окно меньшего размера и разворачивается обратно). В дальнейшем никакие клики ни к чему не приводят. Сделал вывод, что двойной клик на заголовке реализовывает функцию "сворачивания в окно", но не обратную ф-цию. Потому после первого двойного клика, форма как бы находится в режиме "свернута в окно", а потому не может быть свернута еще раз. 
Конечно, коряво, но меня вполне устраивает.
mrBooks, Вам еще +1. К сожалению, только на словах. Система не дает возможности два раза в день плюсы ставить, хотя заслужили. По сути, решили 2 задачи.

Это сообщение отредактировал(а) petlyura - 23.3.2009, 15:28

Поможем, что делать   

 Спасибо, Аникмар!

На всякий случай, оставляю вопрос открытым, вдруг кто-то что-нибудь мудрое подскажет.

Хм... про диалог не увидел. В принципе визуально тот же эффект, насчет программной стороны не знаю. А bsToolWindow - не имеет смысла.

Насчет по умнее не знаю, но что-то мне подсказывает, что не обязательно использовать стандартный заголовок - уж как-то много "страховок" используется. Имхо намного "приятней" будет использовать свой, при этом на OnMouseDown заголовка поставить:



Впрочем, решать вам, а это как альтернатива.

Честно, я не знаю, как сделать свой заголовок... 

Я же говорю, как это сделать. Заголовком может быть все, что душе угодно. Хоть TPanel, хоть рисунок, лишь бы пользователю было бы понятно. Основная его функция - сообщить пользователю, что это за окно и реализация перемещения, которую я уже привел выше.

Поставь в опциях формы Autosize=true и сколко не клацай размер она не изменит!!!

LionMdS, проблема была в сворачивании, а не в изменении размеров окна. А при BorderStyle = bsDialog или некоторым другим параметрам, не требует использования Autosize.