Форум: "Media";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Вниз

ГРУГЛАЯ ФОРМА   Найти похожие ветки 

← →
TORT   (2005-06-06 18:09) [0]

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

---

← →
Antonn ©   (2005-06-06 18:18) [1]

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

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

---

← →
panov ©   (2005-06-06 19:47) [2]

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

---

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

Форум: "Media";
Текущий архив: 2005.10.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.041 c