Текущий архив: 2003.12.04;
Скачать: CL | DM;

Вниз

Убрать заголовок окна   Найти похожие ветки 

← →
Andriy Tysh ©   (2003-10-07 20:30) [0]

Как убрать заголовок окна, а потом его показать(когда надо)?

---

← →
Guerrillero ©   (2003-10-07 22:39) [1]

попробуй:
procedure TForm1.ShowCaption(AShow: Boolean);
var
I: Integer;
begin
I := GetWindowLong(Handle,GWL_STYLE);
if AShowType then
SetWindowLong(Handle,GWL_STYLE,I or WS_CAPTION)
else
SetWindowLong(Handle,GWL_STYLE,I xor WS_CAPTION);
Height := Height + 1;
Height := Height - 1;
end;

---

← →
Andriy Tysh ©   (2003-10-08 10:33) [2]

Спасибо

---

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

Текущий архив: 2003.12.04;
Скачать: CL | DM;

Наверх

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