Та какой апи! Этож основы объектно ориентированного программирования!
)))
ИМХО все ж голый АПИ
----------------------------------------------------
Constructor TSplashForm.Create(AOwner:TComponent);
Const B=8; D=100+B;
Var R1,R2:HRgn;
Begin
// Создаем форму и 2 временных эллипсных региона
Inherited Create(AOwner);
R1:=CreateEllipticRgn(B,B,Width-B,Height-B);
R2:=CreateEllipticRgn(D,D,Width-D,Height-D);
// Создаем результирующий регион, как разность первых двух
FRgn:=CreateEllipticRgn(B,B,Width-B,Height-B);
CombineRgn(FRgn,R1,R2,RGN_DIFF);
// Устанавливаем регион окна и освобождаем временные ресурсы
SetWindowRgn(Handle,FRgn,False);
DeleteObject(R2);
DeleteObject(R1)
End { TSplashForm.Create };
-------
: 1 3 Далее» Все Вниз