Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 19-02-2007
Avatar de Max_E.
Max_E. Max_E. is offline
Miembro
 
Registrado: sep 2006
Posts: 90
Poder: 18
Max_E. Va por buen camino
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

Código Delphi [-]
Edit1.color:=none;
edit1.color:=none;

gracias por la ayuda que me puedan dar
Responder Con Cita
  #2  
Antiguo 19-02-2007
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.235
Poder: 20
ElKurgan Va camino a la fama
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;
Esto lo podrías llamar, por ejemplo, con:

Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text <> '' then
    Escribe(Edit1.Text);
end;
Espero que te sirva
Un saludo
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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


La franja horaria es GMT +2. Ahora son las 16:06:43.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi