...make a form transparent?

Author: TanLU

Category: Forms

{
  Suppose you have one form named Form1, and a button1 on Form1,
  On Form1's OnCreate event write these code:
}

procedure TForm1.FormCreate(Sender: TObject);
begin
  
SetWindowLong(Form1.Handle, GWL_EXSTYLE,
  (GetWindowLong(Form1.Handle, GWL_EXSTYLE) or WS_WX_TRANSPARENT));
end;

{
  Only the button can be seen, but form cannot.
  Works on Windows 98/2000
}

 

printed from
www.swissdelphicenter.ch
developers knowledge base