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