![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
|
fondo transparente
Hola a todos:
estoy utilizardo una imagen como fondo de mi formulario y quisiera saber si existe la posibilidad de que un cuadro de edicion o una etiqueta tenga el fondo transparente para poder visualizar la imagen mas o menos talves
gracias por la ayuda que me puedan dar |
|
#2
|
||||
|
||||
|
Para escribir texto transparente sobre el canvas de cualquier componente
visual en Delphi, hay que usar la función SetBkMode de la API de Windows. Por ejemplo: Código:
procedure TForm1.Escribe(const s: string);
var
AnteriorBkMode: integer;
begin
// Borra Imagen
// Escribe en la imagen
with Image.Canvas do
begin
Brush.Color := clRed;
TextOut(100, 80, 'Texto Opaco');
TextOut(100, 100, s);
AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
TextOut(100, 200, 'Texto Transparente');
TextOut(100, 220, s);
SetBkMode(Handle, AnteriorBkMode);
end;
end;
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text <> '' then
Escribe(Edit1.Text);
end;
Un saludo |
![]() |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| label transparente | b3nshi | Varios | 1 | 06-03-2005 20:07:02 |
| Tdbchart Con Fondo Transparente | JoseQ | OOP | 1 | 22-12-2004 11:23:19 |
| Memo con el fondo transparente | bustio | OOP | 0 | 01-11-2004 08:09:08 |
| Un panel transparente | yusnerqui | Varios | 2 | 23-03-2004 16:33:32 |
| Panel transparente | epalacios | OOP | 3 | 18-02-2004 14:32:24 |
|