Все мы знаем, что борты форм, кнопок, полей ввода и др. для создания их трехмерности прорисованны со всех сторон двумя полосками.

Вопрос как поменять цвет этих полосок, другими словами как добиться эфекта
Стиля бордюра формы bsNone но чтоб при этом форма имела свойство bsSizable?

Я нашёл один способ но для его реализации приходится прописывать процедуру на каждое движение и изменение в размера формы иначе вырисовываются стандартные бордюры.

Конечно можно поставить на процедуру таймер, но мне нехочется в своём приложении их использовать.

Может кто знает какойнить способ, а?

Код

private  procedure WMNCPaint;

Код

procedure TForm1.WMNCPaint;//(var ); var  dc : hDc;  Pen : hPen;  OldPen : hPen;  OldBrush : hBrush;   Msg: TWMNCPaint; begin  inherited;  dc := GetWindowDC(Handle);  msg.Result := 12;  Pen := CreatePen(PS_SOLID, 7, RGB(0, 0, 0));  OldPen := SelectObject(dc, Pen);  OldBrush := SelectObject(dc, GetStockObject(NULL_BRUSH));  Rectangle(dc, 0,0, Form1.Width, Form1.Height);  SelectObject(dc, OldBrush);  SelectObject(dc, OldPen);  DeleteObject(Pen);  ReleaseDC(Handle, Canvas.Handle);  Form1.Refresh; end;

Я обоходил так: выключал заголовок (bsNone) а дальше просто на форму ложил панель, делая у неё Align в alClient

Цитата(Song @ 05.6.2002, 17:05)

Я обоходил так: выключал заголовок (bsNone) а дальше просто на форму ложил панель, делая у неё Align в alClient

Ты не понял надо чтобы Форма имела Свойство bsSizable, тоесть чтоб можно было её растягивать и стягивать.

Можно попробовать добвить стиль WS_SIZEBOX или обрабатывать WM_NCHITTEST