Овальная форма

[Дима-HKI]

Люди скажите пожалуйста возможно ли сделать т форму овальной???

[khaz]

procedure Tform1Create(...);
var formrgn:HRGN;
begin
formrgn:=createellipticrgn(0,0,widt h,height);
setwindowrgn(handle,formrgn,true);
end;


вроде так, писал по памяти так что могут быть ошибки

[zetrix]

С помощью этого компонента легко можна задать теоритически
любой регион формы: Form Region (1,31 Mb)

[Дима-HKI]

а как нарисовать овал в форме(по точкам)????

[zetrix]

Сообщение от Дима-HKI

а как нарисовать овал в форме(по точкам)????

не понял.. а какая разница как строить - по точкам, или задать координаты верхнего и нижнего угла прямоугольника, в который вписан овал?
Результат один и тот же...

[Дима-HKI]

zetrix
Надо создать собственную функцию которая бы при обращении к ней,после запуска .ехе файла в форме рисовался овал!

[Nemon]

procedure TForm1.FormCreate(Sender: TObject);
var
FormRgn: hRgn;
begin
//очищаю форму
Form1.Brush.Style := bsSolid; //bsclear;
//область формы
GetWindowRgn(Form1.Handle, FormRgn);
//удаляю прежнюю область формы
DeleteObject(FormRgn);
//создаю прямоугольную область для отрисовки формы
Form1.Height := 480;
Form1.Width := Form1.Height;
//создаю форму в виде круга
FormRgn := CreateRoundRectRgn(1, 1, Form1.Width - 1,
Form1.height - 1, Form1.width, Form1.height);
//устанавливаю новое окно
SetWindowRgn(Form1.Handle, FormRgn, TRUE);
end;


Вроде так...
Можешь вместо OnCreate повесить это на нажатие кнопки