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
Отлично. отлично. отлично.

Можно еще и так:

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 -- исключить эту область из региона окна.

TForm Найти похожие ветки