Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

ws_caption [D6, Win95/98]

Алексей Ким © (2002-12-18 12:25:00)
как создать окно без этого стиля?

Игорь Шевченко (2002-12-23 14:05:00) [1]
Алексей Ким © (23.12.02 11:31)

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

WS_VISIBLE, к примеру

esVer (2002-12-23 13:49:00) [2]
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}

Song (2002-12-23 11:44:00) [3]
RTFM

Алексей Ким (2002-12-23 11:31:00) [4]
Сейчас не могу проверить не дома но not ws_caption выдает
violation of subrange bounds

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

Song (2002-12-23 11:27:00) [5]
я тебе об этом выше написал.

Алексей Ким (2002-12-23 11:22:00) [6]
2song>перезадам вопрос: как создать окно без заголовка?

Slym (2002-12-19 08:38:00) [7]
переопределить CreateParams...
inhetited;
Style:=Style and not WS_CAPTION;
end;

либо BorderStyle - None;

Song (2002-12-18 13:51:00) [8]
CreateWindow(..., стили and not WS_CAPTION,... )

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »