Use Regions.
 
Something like:
 
 
procedure TForm1.FormCreate(Sender: TObject);
var
  NewRgn : HRGN;
begin
  NewRgn := CreateEllipticRgn(10,10,width-10,height-10);
  SetWindowRgn(handle,NewRgn,false);
end;
 
Stacey
 
-----Original Message-----
From: Jeremy Coulter [mailto:[EMAIL PROTECTED]]
Sent: Friday, 31 March 2000 12:31
To: Multiple recipients of list delphi
Subject: [DUG]: Transparent Forms

Hi all.
 
I seem to have forgotten how to make forms transparent.
 
I DO remember that it has to be in the OnForm.Paint event, and that Brush.style:=bsClear is in there, but I forget the other part.....
 
Cany anyone remember ??
 
Cheers,
 
 

Jeremy Coulter (Software Manager)
Triton Commercial Systems Ltd
6a Burdale Street
Christcurch
Phone +64 3 3483973
Fax   +64 3 3431613
Cell   021 2533214

 

Reply via email to