Текущий архив: 2003.11.20;
Скачать: CL | DM;

Вниз

Вопрос   Найти похожие ветки 

← →
Lenka   (2003-10-29 08:34) [0]

Как сделать форму не прямоугольной

---

← →
aVast ©   (2003-10-29 08:56) [1]



procedure TForm1.FormCreate(Sender: TObject);
var
ResultReg, Reg : HRGN;
begin
ResultReg := CreateEllipticRgn(2,3,339,20);

Reg := CreateEllipticRgn(11,28,108,110);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);

Reg := CreateEllipticRgn(122,28,220,110);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);

Reg := CreateEllipticRgn(233,28,330,110);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);

Reg := CreateRectRgn(0,116,341,219);
CombineRgn(ResultReg,ResultReg,Reg,RGN_OR);

SetWindowRgn(Handle, ResultReg, False);
end;



---

← →
Мазут Береговой ©   (2003-10-29 08:59) [2]

Вот здесь есть, на Basic, правда, но API функции испольуются те же и алгоритм. Только перевести в Delphi.
http://www.delphivsvb.by.ru/vbsol/vbsslokn.html

А вот здесь на Delphi:
http://forum.codenet.ru/showthread.php?threadid=5155

Я просто набрал в Google.com такую строчку: "Delphi Как сделать форму не прямоугольной". Неужели трудно?
Удачи!

---

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

Текущий архив: 2003.11.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.021 c