Скачать: CL | DM;

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

← →
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;

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

---

← →
lookin ©   (2005-10-04 21:43) [5]

[4] Jioniro   (04.10.05 21:24)

BorderStyle:=bsSingle?

---

← →
Piter ©   (2005-10-04 22:54) [6]

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

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

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.022 c