dec
30-06-2006, 23:42:01
Este truco es bastante simple, pero muy elegante, por ejemplo, para hacer una pantalla de presentación de nuestra aplicación con el fondo transparente. Tan solo hay que poner en el método de OnCreate la siguiente sentencia:
procedure TFSplass.FormActivate(Sender: TObject);
begin
Brush.Style := bsClear;
end;
Bueno espero que os guste. Un saludo,
Javier Miras
procedure TFSplass.FormActivate(Sender: TObject);
begin
Brush.Style := bsClear;
end;
Bueno espero que os guste. Un saludo,
Javier Miras