Регион и форма

[Claster]

доброго времени суток...скажите как создать форму с закругленными только верхними углами?

[l1pton17]

Какая среда программирования?

[l1pton17]

Вот для делфи.

[Claster]

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

[Claster]

procedure TProgramForm.FormResize(Sender: TObject);
var
 Rgn, Rgn1: HRGN; // Регионы
begin
 Rgn  := CreateRoundRectRgn(0, 0, width, 32, 20, 20);
 Rgn1 := CreateRoundRectRgn(0, 22, width, height, 0, 0);
 CombineRgn(Rgn, Rgn, Rgn1, RGN_OR);//--------------------------------объединяем
 SetWindowRgn(Handle, Rgn, true);//------------------------------------применяем
end;