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

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

ГРУГЛАЯ ФОРМА [D5, Win2k]

TORT ©   (2005-06-06 18:09:00) 

ПРИВЕТ, у меня вопрос: круглая форма это реально,если да то как?

---

panov   (2005-06-06 19:47:00) [1]

Не надо так орать.

---

Antonn   (2005-06-06 18:18:00) [2]

регионами можно.
По образу и подобию:

procedure TForm1.FormCreate(Sender: TObject);
var
  rgn: HRGN;
begin
  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);
end

---

Наверх