Mega Code Archive

 

Categories / Delphi / Examples

 

Create an elliptic window

VAR h: THandle; begin h := CreateEllipticRgn(40, 40, 300, 200); SetWindowRgn(Handle,h,TRUE); Well.. that's all !