Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   fondo transparente (https://www.clubdelphi.com/foros/showthread.php?t=40489)

Max_E. 19-02-2007 05:33:10

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

ElKurgan 19-02-2007 10:01:25

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


La franja horaria es GMT +2. Ahora son las 11:33:48.

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