Главная страница
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.011 c
1-11603
Forsaken
2003-11-25 05:01
2003.12.04
EOleSysError


4-11733
Andriy Tysh
2003-10-07 20:30
2003.12.04
Убрать заголовок окна


4-11719
MegaBass
2003-10-09 14:26
2003.12.04
Спец функции API


6-11656
ИМХО
2003-10-07 23:56
2003.12.04
Достучаться до заголовков письма в MS Outlook?


9-11575
greenrul
2003-05-19 02:55
2003.12.04
Реализация изменцивых от ситуации диалогов в RPG: