ГРУГЛАЯ ФОРМА

← →
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

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

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