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

← →
Артем К. (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]

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

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

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 Спасибо!

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