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

← →
Jioniro (2005-10-04 19:15) [0]

Привет всем!
Такая проблема - мне необходима форма без заголовка, при этом чтобы она оставалась 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;

← →
Anatoly Podgoretsky © (2005-10-04 20:14) [1]

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

← →
Джо © (2005-10-04 20:22) [2]

Неясна мысль об отсутствии заголовка и желании иметь системное меню. Если меню не нужно, достаточно сделать так.
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;

← →
Джо © (2005-10-04 20:23) [3]

> 1. BorderStyle := bsNode;

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

← →
Jioniro (2005-10-04 21:24) [4]

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

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

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

[4] Jioniro (04.10.05 21:24)

BorderStyle:=bsSingle?

Jioniro (04.10.05 21:24) [4]
возможно, в моем случае заголовка нет, а меню есть...

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

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

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

Форма без заголовка Найти похожие ветки