Текущий архив: 2003.06.30;
Скачать: CL | DM;
Вниз
Заголовок формы Найти похожие ветки
← →
Far (2003-06-17 14:05) [0]А можно ли убрать верхнюю часть формы с заголовком и кнопками управления окном?
← →
dataMaster © (2003-06-17 14:09) [1]BorderStyle
← →
dataMaster © (2003-06-17 14:13) [2]Но мне лично больше нравится так:
procedure TForm1.FormCreate(Sender: TObject);
var
FSizeCaption: Integer;
begin
with Form1 do
begin
FSizeCaption := GetSystemMetrics(SM_CYCAPTION);
SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_Style) and not WS_Caption);
Height:=Height - FSizeCaption;
end;
end;
Форма без заголовка, но имеет объем.
Страницы: 1 вся ветка
Текущий архив: 2003.06.30;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.012 c