Текущий архив: 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.48 MB
Время: 0.022 c
