Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Форма без заголовка [D7]

Jioniro © (2005-10-04 19:15:00)
Привет всем!
Такая проблема - мне необходима форма без заголовка, при этом чтобы она оставалась Ctr3d, имела системное меню, и нельзя было изменять размеры.
Я делаю:
...
protected
procedure CreateParams(var Params: TCreateParams); override;
...

procedure TMainForm.Createparams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style:=(Style OR WS_POPUP) AND NOT WS_DLGFRAME;
end;

Но это работает только при BorderStyle - bsSizeble;

Piter (2005-10-04 22:54:00) [1]
Jioniro (04.10.05 21:24) [4]
возможно, в моем случае заголовка нет, а меню есть...

что значит возможно? Опиши как это - нам всем интересно :)

Тебе уже сказали - системное меню располагается НА заголовке окна. Если нет заголовка - откуда будет системное меню?

Не будет же системное меню "висеть в воздухе"?

lookin (2005-10-04 21:43:00) [2]
[4] Jioniro (04.10.05 21:24)

BorderStyle:=bsSingle?

Jioniro (2005-10-04 21:24:00) [3]

> Невозможно, системное меню размещается на заголовке

возможно, в моем случае заголовка нет, а меню есть...
но работает это только при BorderStyle - bsSizeble;

А мне нужно что бы размер нельзя было изменять...

Джо (2005-10-04 20:23:00) [4]

> 1. BorderStyle := bsNode;

bsNone, естественно.

Джо (2005-10-04 20:22:00) [5]
Неясна мысль об отсутствии заголовка и желании иметь системное меню. Если меню не нужно, достаточно сделать так.
1. BorderStyle := bsNode;
2. В обработчике OnPaint формы вставляем код: procedure TForm1.FormPaint(Sender: TObject); var Rct: TRect; begin Rct := ClientRect; DrawEdge(Canvas.Handle,Rct, EDGE_RAISED, BF_RECT); end;

Anatoly Podgoretsky (2005-10-04 20:14:00) [6]
Невозможно, системное меню размещается на заголовке

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »