Как закруглить уголки формы ?

← →
ssss (2007-06-18 12:48) [0]

Здраствуйте помогите пожалуйста кто чем может...Как можно закруглить уголки формы?что б смотрелось красивее....раньше я всегда решал этот вопрос вот таким кодом
Form1.Borderstyle := bsNone; rgn := CreateRoundRectRgn(0,// x-coordinate of the region"s upper-left corner 0, // y-coordinate of the region"s upper-left corner ClientWidth, // x-coordinate of the region"s lower-right corner ClientHeight, // y-coordinate of the region"s lower-right corner 40, // height of ellipse for rounded corners 40); // width of ellipse for rounded corners SetWindowRgn(Handle, rgn, True);

но в этом случае я просто не могу ее передвигать....кто знает какиеесть способы закруглить углы?

Благодарю заранее.

← →
Робинзон (2007-06-18 13:36) [1]

Что бы передвигать форму вот часть кода
----------------перемещение формы---------------- private {Для перемещения формы вне заголовка объявляем процедуру} procedure WMNCHitTest(var M:TWMNCHitTest);message wm_NCHitTest; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} {Для перемещения формы вне заголовка описываем процедуру} procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); begin inherited; if M.Result = htClient then M.Result := htCaption; end;
или в OnMouseDown пропиши
ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0);

Как закруглить уголки формы ? Найти похожие ветки