...eine Form transparent machen?
Autor: TanLU
{
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