Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.007 c
8-11633
AnthreX
2003-07-01 02:02
2003.12.04
TMediaPlayer


3-11585
Nick-From
2003-11-16 01:06
2003.12.04
Переменные TpFibDataSet и TpFibTransaction


6-11669
UltraFreak
2003-10-07 14:58
2003.12.04
Куда коннектиться?


8-11630
Саша2
2003-08-01 15:59
2003.12.04
avertv studio 203 -> delphi


1-11602
greenrul
2003-11-26 03:31
2003.12.04
Проблемы с File of TMyType