Как создать форму в форме элипса?
Falk0ner, вс, 06/07/2008 - 15:34.
procedure TForm1.FormCreate(Sender: TObject);
var
Region: HRGN;
begin
Region := CreateEllipticRgn(0, 0, 300, 300);
SetWindowRgn(Handle, Region, True);
end;
var
Region: HRGN;
begin
Region := CreateEllipticRgn(0, 0, 300, 300);
SetWindowRgn(Handle, Region, True);
end;
Взято с Delphi Knowledge Base: http://www.baltsoft.com/
Отправить комментарий