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

Как убрать синюю полосу вверху формы?   Найти похожие ветки 

← →
Evgen_Iam   (2003-03-05 20:18) [0]

Уважаемые, подскажите пожалуйста.

Требуется создать серое окно с надписью и кнопкой (TButton) без системных кнопок с неизменяемым размером. Все реализуется за исключением присутствия синей полосы вверху.

Как сделать,чтобы ее не было?

Заранее благодарен.

---

← →
Rouse_ ©   (2003-03-05 20:23) [1]

BorderStyle := bsNone;

Желаю успехов

---

← →
Guzz ©   (2003-03-05 20:23) [2]

BorderStyle=bsNone
ну кнопку кинуть еще на форму...
ну вот собственно и все...

---

← →
Evgen_Iam   (2003-03-05 20:27) [3]

Это пробовал. Но окно получается плоским. Как, в таком случае, сделать его границы выпуклыми.

---

← →
Guzz ©   (2003-03-05 20:28) [4]

нарисовать свою форму...

---

← →
Mihey   (2003-03-05 20:33) [5]

Сбросить на форму панельку :)

---

← →
Evgen_Iam   (2003-03-05 20:36) [6]

:)

---

← →
Strumpf ©   (2003-03-05 21:36) [7]

:-))

---

← →
Юрий Зотов ©   (2003-03-05 22:48) [8]

procedure TForm1.FormShow(Sender: TObject);
begin
SetWindowLong(Handle, GWL_STYLE,
GetWindowLong(Handle, GWL_STYLE) and not WS_CAPTION);
Width := Width + 1;
Width := Width - 1
end;

---

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

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



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