Ver Mensaje Individual
  #2  
Antiguo 19-02-2007
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.235
Reputación: 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