Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Форма без заголовка, без рамки, но может изменять размеры?   Найти похожие ветки 

 
Артем К.   (2004-07-08 08:05) [0]

Такое возможно?


 
basic   (2004-07-08 08:19) [1]

а BorderStyle какой?


 
КаПиБаРа ©   (2004-07-08 08:21) [2]

Возможно


 
Артем К.   (2004-07-08 08:24) [3]

BorderStyle := bsSizeable
Я знаю надо через CreateParams, но не знаю какие WS_ надо ставить


 
basic   (2004-07-08 09:07) [4]

если bsSizeable то возможно, меняй значение на bsNone, и не парься CreateParams


 
Артем К.   (2004-07-08 09:11) [5]

все верно, но я не смогу изменять размеры формы мышью


 
ssk ©   (2004-07-08 09:26) [6]

Мне без заголовка такой вариант нравится. Этот пример был дан кем-то здесь же на форуме. Вот только не помню, кем.


procedure FormWithoutCaption(Form: TForm);
var
FSizeCaption: Integer;
begin
 with Form do
   begin
     FSizeCaption := GetSystemMetrics(SM_CYCAPTION);
     SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_Style) and not WS_Caption);
     Height:=Height - FSizeCaption;
   end;
end;


 
Артем К.   (2004-07-08 09:32) [7]

>> ssk Спасибо!



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

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
3-1088487606
Ярослав
2004-06-29 09:40
2004.07.25
Массивы в IB


6-1085586234
Алексей
2004-05-26 19:43
2004.07.25
Письмо с вложением


14-1089016204
Off
2004-07-05 12:30
2004.07.25
Алгоритм гирлянды.


3-1088659573
Anisa
2004-07-01 09:26
2004.07.25
Delphi6 DB2


1-1089273016
Ш-К
2004-07-08 11:50
2004.07.25
Последовательность загрузки published свойств