Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - [решено] Проблема с видом формы

Ответить
Настройки темы
Delphi - [решено] Проблема с видом формы

Аватара для Malfatto

Storm Spirit


Сообщения: 467
Благодарности: 33


Конфигурация

Профиль | Отправить PM | Цитировать


В общем, нужно сделать форму вот такого вида:



Перепробовал разные варианты, похожий результат даёт лишь это:

BorderStyle = bsNone;

Код: Выделить весь код
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style:=Params.Style or (WS_THICKFRAME or WS_DLGFRAME);
end;
Однако, при этом размер самой формы можно менять (появляются стрелочки при наведение на края). Как сделать так, чтобы размер формы при этом нельзя было менять?

Отправлено: 20:19, 22-05-2011

 

Аватара для opel431

Ветеран


Contributor


Сообщения: 1803
Благодарности: 714

Профиль | Отправить PM | Цитировать


Цитата Malfatto:
показано решение на Visual C# »
Посмотрел! Какой вопрос такой и ответ!
как сделать форму без заголовка с тонкой системной рамкой?

-------
Хвала тому, кто встав среди камней, уча другого, сам будет умней.


Отправлено: 20:11, 23-05-2011 | #31



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

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


В Поисках Истины


Сообщения: 802
Благодарности: 135

Профиль | Отправить PM | Цитировать


Malfatto, В приведенном примере получается так же как и у Вас, рамка такая как и нужно, но ресайзить тоже можно

Ведь можно же как то сделать такую, но без возможности изменения размеров!

-------
foreach(short w in new short[] {73,3,79,83,90,79,78,69}){
Console.Write((char)w);
}


Отправлено: 20:19, 23-05-2011 | #32


Аватара для opel431

Ветеран


Contributor


Сообщения: 1803
Благодарности: 714

Профиль | Отправить PM | Цитировать


Для общего понимания стиля формы!
Вот как стиль решается на WinAPI.

bsSizeable (Эти параметры устанавливаются автоматически)
Form.Style := WS_THICKFRAME or WS_SYSMENU or WS_MAXIMIZEBOX or WS_MINIMIZEBOX or WS_VISIBLE;

bsSingle
Form.Style := WS_BORDER or WS_SYSMENU or WS_MAXIMIZEBOX or WS_MINIMIZEBOX or WS_VISIBLE;>

bsNone
Form.Style := WS_POPUP or WS_VISIBLE;

bsDialog
Form.Style := WS_BORDER or WS_SYSMENU or WS_VISIBLE;

bsSizeToolWin
Form.ExStyle := WS_EX_TOOLWINDOW;

bsToolWindow
Form.Style := WS_BORDER or WS_SYSMENU or WS_VISIBLE;

-------
Хвала тому, кто встав среди камней, уча другого, сам будет умней.

Это сообщение посчитали полезным следующие участники:

Отправлено: 20:21, 23-05-2011 | #33


Аватара для Malfatto

Storm Spirit


Сообщения: 467
Благодарности: 33

Профиль | Отправить PM | Цитировать


попросил у друга, у которого Visual C# есть создать программу с кодом отсюда, так и края эти появляются только если окно Sizeable... видимо, остаётся лишь один вариант - запретить смену курсора при наведении на рамки.

Отправлено: 01:37, 24-05-2011 | #34


Аватара для Malfatto

Storm Spirit


Сообщения: 467
Благодарности: 33

Профиль | Отправить PM | Цитировать


В общем, решил действительно попробовать сделать через WM_NCHITTEST:

Код: Выделить весь код
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
  Msg.Result:=0;
end;
И всё отлично заработало при наведении на края курсор не меняется, менять размер формы нельзя. а с помощью CreateParams того вида, что в первом посте, я добился.

Спасибо большое всем за помощь, проблема решена.
Это сообщение посчитали полезным следующие участники:

Отправлено: 21:13, 28-05-2011 | #35



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Delphi - [решено] Проблема с видом формы

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - Проблема с видом значков Dorian2222 Microsoft Windows Vista 0 30-06-2010 23:00
[решено] FileOpenDialog с заданым видом отображения файлов cra5h_ AutoIt 2 01-02-2010 17:45
Интерфейс - Пожалуйста помогите с видом папок. Areso Microsoft Windows 2000/XP 1 09-09-2009 18:51
проблемма с видом папки.... Just Microsoft Windows 2000/XP 0 06-02-2006 14:08
Проблема с отправкой формы по E-mail rhsk Вебмастеру 5 09-10-2005 23:37




 
Переход