procedure TForm1.Button1Click(Sender: TObject);
const
x1 = 10;
y1 = 10;
x2 = 300;
y2 = 200;
x3 = 90;
y3 = 90;
begin
SetWindowRgn(handle,CreateRoundRectRgn(0,0,Width,Height, 50, 50),True);
RoundRect(Canvas.Handle, x1,y1, x2,y2, x3,y3);
end;
const
x1 = 10;
y1 = 10;
x2 = 300;
y2 = 200;
x3 = 90;
y3 = 90;
begin
SetWindowRgn(handle,CreateRoundRectRgn(0,0,Width,Height, 50, 50),True);
RoundRect(Canvas.Handle, x1,y1, x2,y2, x3,y3);
end;