Form - Transparente

Top  Previous  Next

Funcão no PUBLIC do form

 

procedure TForm1.CreateParams (var Params: TCreateParams);

begin

  inherited CreateParams (Params);

  Params.ExStyle := Params.ExStyle or

    WS_EX_TRANSPARENT;

end;

 

Obs : O nome deve ser esse mesmo(CreateParams).