Как полностью изменить стандартный вид формы

← →
carmen (2002-09-12 01:11) [0]

Как можно изменит стандартный вид формы. Изменитьь так чтобы полученную форму можно было перемещатьт, изменять размери, т.е. вела себя как обычноя но виглядела так как мне хочется

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

← →
kex86 © (2002-09-12 01:56) [1]

Ты ещё здесь?
Я сейчас делаю небольшую прогу, в которой вид полностью не виндоуский.Там я вообще убрал системную полосу (borderstyle=bsnone, кажется) и поставил рисунок со свойством align=altop, который заменил эту полосу.На неё я поставил три кнопки нестандартного вида (свернуть,минимизировать,закрыть), более того,я их поставил посередине полосы. Чтобы можно было двигать форму : (image1 - это полоса)

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const SC_DragMove = $F012;
begin
ReleaseCapture;
form1.perform(WM_SysCommand, SC_DragMove, 0);
end;

Я ,правда, не делал изменения формы, но моя прога в этом не нуждается

Ставь у формы BorderStyle=bsNone и обрабатывай сообщение WM_NCHITTEST, в котором ты должен вернуть, ну какую область формы ликнули мышшкой (кнопка минимизации, верхняя граница, кнопка закрытия, ...). И рисуй форму как тебе заблагорассудиться (хоть с кнопкой закрытия посредине).

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