Как менять размер формы.

[quote=Webster]Я имею ввиду, допустим я хочу сделать форму с круглыми углами или вообще всю форму сделать круглой.
Заранее спасибо!:)[/quote]
.......
private
procedure CreateParams(var Params: TCreateParams); override;
.......

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);

Params.Style := Params.Style or ws_popup xor ws_dlgframe;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
FormRgn: hRgn;
begin
Form1.Brush.Style := bsSolid;
GetWindowRgn(Form1.Handle, FormRgn);
DeleteObject(FormRgn);
Form1.Height := 500;
Form1.Width := Form1.Height;
FormRgn := CreateRoundRectRgn(1, 1, Form1.Width - 1,
Form1.height - 1, Form1.width, Form1.height);
SetWindowRgn(Form1.Handle, FormRgn, TRUE);
end;

Форма с закругленными краями

procedure TForm1.FormCreate(Sender: TObject);
var
rgn: HRGN;
begin
Form1.Borderstyle := bsNone;
rgn := CreateRoundRectRgn(0,0,ClientWidth,ClientHeight,40, 40); // функция CreateRoundRectRgn создает прямоугольную форму с закругленными углами
SetWindowRgn(Handle, rgn, True);
end

procedure TForm1.FormCreate(Sender: TObject);
const
C = 20;
var
Points: array [0..7] of TPoint;
h, w: Integer;
begin
h := Form1.Height;
w := Form1.Width;
Points[0].X := C; Points[0].Y := 0;
Points[1].X := 0; Points[1].Y := C;
Points[2].X := 0; Points[2].Y := h - c;
Points[3].X := C; Points[3].Y := h;
Points[4].X := w - c; Points[4].Y := h;
Points[5].X := w; Points[5].Y := h - c;
Points[6].X := w; Points[6].Y := C;
Points[7].X := w - C; Points[7].Y := 0;
SetWindowRgn(Form1.Handle, CreatePolygonRgn(Points, 8, WINDING), True);//функция CreatePolygonRgn создает многоугольную форму
end;

Совет:скачай Delphi World 6 там много всего есть и этот пример

[quote=Геннадий]

Совет:скачай Delphi World 6 там много всего есть и этот пример[/quote]
тогда и форумы никакие не нужны!?
Всё равно приходится прибегать к поиску в интернете