Google

Wednesday, March 14, 2007

make a form transparent

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

1 comment:

Kayla Wallace said...

Thank you for shariing