| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

ssss ©   (2007-06-18 12:48:00) 

Здраствуйте помогите пожалуйста кто чем может...Как можно закруглить уголки формы?что б смотрелось красивее....раньше я всегда решал этот вопрос вот таким кодом
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);

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

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

---

oldman   (2007-06-18 18:23:00) [1]

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


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

---

Робинзон   (2007-06-18 13:36:00) [2]

Что бы передвигать форму вот часть кода
----------------перемещение формы----------------

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


---

Наверх