Скачать: CL | DM;

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, к примеру

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.99 c