Google

Thursday, March 8, 2007

form with rounded corners

procedure TForm1.FormCreate(Sender: TObject);
var
regn: HRGN;
begin
Form1.Borderstyle := bsNone;
regn := CreateRoundRectRgn(0,
0,ClientWidth,ClientHeight,40,40);
SetWindowRgn(Handle, regn, True);
end;

2 comments:

Unknown said...

Vladimir,

Thank you for this very useful and helpful code. I appreciate your work.

Soundproofing Contractors Jacksonville said...

Nice blog youu have