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

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

← →
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);


---

← →
oldman ©   (2007-06-18 18:23) [2]

> что б смотрелось красивее....


Это ты сам решил, или тебе кто-то сказал? (Кин-Дза-Дза ©)

---

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

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



Память: 0.45 MB
Время: 0.014 c