Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
ВнизTForm Найти похожие ветки
← →
Vlad2 (2002-09-26 06:43) [0]Здравствуйте !
Подскажите, пожалуйста, как удалить Caption у формы (TForm). Этот вопрос был в форуме, но я никак не нашел. Использовать form.BorderIcons := []; нежелательно. Под Caption здесь понимается синенькая полоска окна с системными кнопочками.
← →
Viktor Kushnir (2002-09-26 07:05) [1]Кажется так тоже можно.
Form.BorderStyle := bsNone
← →
andrey_pst (2002-09-26 07:21) [2]>>Кажется так тоже можно.
>>Form.BorderStyle := bsNone
Только форма необъемная будет.
← →
Vlad2 (2002-09-26 07:35) [3]Да, да "Только форма необъемная будет." Я пытался создать потомок TPanel, но тогда все управляющие элементы "формы без заголовка" приходится создавать в runtime, - неудобно. Как бы отменить прорисовку заголовка у form: TForm ?
← →
Esu (2002-09-26 07:37) [4]procedure TForm1.FormCreate(Sender: TObject);
var
FSizeCaption: Integer;
begin
FSizeCaption := GetSystemMetrics(SM_CYCAPTION);
SetWindowLong(Form1.Handle, GWL_STYLE, GetWindowLong(Form1.Handle, GWL_Style) and not WS_Caption);
Form1.Height:=Form1.Height - FSizeCaption;
end;
← →
Vlad2 (2002-09-26 07:50) [5]> Esu
Отлично. отлично. отлично.
← →
liho26 (2002-09-26 12:58) [6]Можно еще и так:
Private
procedure CreateParams(var Params: TCreateParams); override;
implementation
{$R *.dfm}
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := Params.Style or ws_popup xor ws_dlgframe;
end;
Этот код сносит напрочь и рамку (в смысле - заголовок) и бордюр вокруг окна (это по желанию)
← →
Слесарь Матерящийся (2002-09-26 13:07) [7]Ещё выриант удаления Caption -- исключить эту область из региона окна.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c