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

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

:-))

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;

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