ws_caption

← →
Алексей Ким (2002-12-18 12:25) [0]

как создать окно без этого стиля?

← →
Song (2002-12-18 13:51) [1]

CreateWindow(..., стили and not WS_CAPTION,... )

← →
Slym (2002-12-19 08:38) [2]

переопределить CreateParams...
inhetited;
Style:=Style and not WS_CAPTION;
end;

либо BorderStyle - None;

← →
Алексей Ким (2002-12-23 11:22) [3]

2song>перезадам вопрос: как создать окно без заголовка?

← →
Song (2002-12-23 11:27) [4]

я тебе об этом выше написал.

← →
Алексей Ким (2002-12-23 11:31) [5]

Сейчас не могу проверить не дома но not ws_caption выдает
violation of subrange bounds

Если я хочу чтобы у окна ничего не было кроме клиентной части
какой стиль указывать?

← →
Song (2002-12-23 11:44) [6]

RTFM

← →
esVer (2002-12-23 13:49) [7]

procedure HideTitlebar(const CurrentForm : TForm);
var
SAVE : Longint;
begin
with CurrentForm do
begin
if BorderStyle=bsNone then Exit;
SAVE:=GetWindowLong(Handle, GWL_STYLE);
if (SAVE and WS_CAPTION)=WS_CAPTION then
begin
case BorderStyle of
bsSingle,
bsSizeable :
SetWindowLong(Handle, GWL_STYLE, SAVE and
(not(WS_CAPTION))or WS_BORDER);
bsDialog :
SetWindowLong(Handle, GWL_STYLE, SAVE and
(not(WS_CAPTION))or DS_MODALFRAME or WS_DLGFRAME);
end; {case}
Height:=Height-GetSystemMetrics(SM_CYCAPTION);
end;
end;
end; {HideTitlebar}

← →
Игорь Шевченко (2002-12-23 14:05) [8]

Алексей Ким © (23.12.02 11:31)

> Если я хочу чтобы у окна ничего не было кроме клиентной
> части
> какой стиль указывать?

WS_VISIBLE, к примеру

ws_caption Найти похожие ветки