|
Вопрос # 5 401/ вопрос решён / |
|
Приветствую, уважаемые эксперты!
Подскажите, пожалуйста, можно ли создать форму с таким же стилем рамки? То есть, с узкими краями, включая и верхнюю кромку...
Скрин прилагается - http://img12.imageshost.ru/img/2011/06/12/image_4df4c8c3902eb.png
 |
Вопрос задал: Rusya (статус: Посетитель)
Вопрос отправлен: 12 июня 2011, 18:09
Состояние вопроса: решён, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 6; последнее сообщение — 13 июня 2011, 18:34; участников в обсуждении: 3.
|
DNK (статус: Студент), 12 июня 2011, 19:27 [#1]:
Можно переопределить метод: protected
procedure CreateParams(var Params: TCreateParams); override; Прописываем в него этот код:procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := (Style or WS_POPUP) and not WS_CAPTION;
end; Правда у меня при этом в ХР стиль рамки теряется.
"Digital Networked Knight"
|
|
Rusya (статус: Посетитель), 12 июня 2011, 22:17 [#2]:
DNK, спасибо, получилось! Но только при свойстве формы BorderStyle=bsSizeable. Ещё хотелось бы, чтобы форма не могла растягиваться)
|
|
bugmenot (статус: 3-ий класс), 12 июня 2011, 22:56 [#3]:
попробуй установить стиль WS_DLGFRAME
виконання програми розпочинається з того самого мiсця, де призупинилося.
|
|
Rusya (статус: Посетитель), 12 июня 2011, 23:19 [#4]:
bugmenot, попробовал - не робит как надо почему-то... Теряется стиль рамки.
|
|
DNK (статус: Студент), 13 июня 2011, 13:37 [#5]:
Rusya: А почему бы тогда вообще без рамки не обойтись?
"Digital Networked Knight"
|
|
Rusya (статус: Посетитель), 13 июня 2011, 18:34 [#6]:
Пошаманил со свойствами формы ClientHeight и ClientWidth. Теперь форма не тянется...
Всем большое спасибо за помощь!) Всем плюсик)
|
13 июня 2011, 18:36: Статус вопроса изменён на решённый (изменил автор вопроса — Rusya)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|