Ver Mensaje Individual
  #2  
Antiguo 02-12-2009
crespopg crespopg is offline
Miembro
 
Registrado: jul 2004
Ubicación: Texcoco, Edo. de Mexico, Mex.
Posts: 16
Reputación: 0
crespopg Va por buen camino
respuesta a Memo transparente

Estimado;
broly7
Aqui mi propuesta a tu pregunta.
En la Propiedad de form1.TransparentColor:=true y
despues utilizar el color blanco como el color transparente,
y opcionalmente definir el color en blanco para form1.

form1.TransparentColor:=true;
form1.TransparentColorValue:=clWhite;
form1.Color:=ClWhite;

Memo TRansparente?
--------------------------------------------------------------------------------
Existe algún componente o alguna forma por código de hacer un memo con el fondo transaprente?
Osea que se visualicen las letras y las scroll bars pero sin el fondo de color. (como un label)
Saludos.
Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
 form1.TransparentColor:=true;
 form1.TransparentColorValue:=clWhite;
 form1.Color:=ClWhite;
 form1.Memo1.Lines.LoadFromFile('ejemplo1.txt');
end;
end.
Archivos Adjuntos
Tipo de Archivo: zip memotrans.zip (5,6 KB, 16 visitas)
Responder Con Cita