Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];

Вниз

Как скрыть заголовок окна   Найти похожие ветки 

← →
antoniz   (2003-02-07 09:57) [0]

Люди подскажите как не показывать заголовок окна, но чтобы размеры формы можно было изменять. Т.е. должна остаться обычная форма, но без заголовка.

---

← →
antoniz   (2003-02-07 10:18) [1]

Отвечаю сам себе
procedure HideCaption(Form: TForm);
begin
with Form do
begin
SetWindowLong(Handle,GWL_STYLE,
GetWindowLong(Handle,GWL_STYLE)
and not WS_CAPTION);
Width:=Width+1;
Height:=Height + 1;
end;
end;

---

← →
Игорь Шевченко   (2003-02-07 10:20) [2]

В design-time задается BorderStyle := bsNone

далее

type
TMyForm = class(TForm)
....
protected
procedure CreateParams(var Params: TCreateParams); override;
...
end;

procedure TMyForm.CreateParams(var Params: TCreateParams);
begin
inherited;
with Params do
Style := Style or WS_CLIPCHILDREN or WS_SIZEBOX;
end;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.02.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.008 c