Hola jars.
Cita:
Empezado por jars
...
Tengo una ventana que es un chat, durante el chateo me quieren pasar una url que contiene una imagen y que esta se muestre en la ventana de chat (RichEdit), es esto posible?, alguna mano con algo de código.
..
|
Un modo es usando un
TImage:
Código Delphi
[-]
procedure TForm1.PutImageInRE(RE: TRichEdit; Img: TImage;
const posX, PosY, aWidth, aHeight: Integer);
begin
RemoveControl(Img);
Img.Left := posX;
Img.Top := posY;
Img.Width := aWidth;
Img.Height:= aHeight;
RE.InsertControl(Img);
Img.Parent:= RE;
end;
Ejemplo de uso:
Código Delphi
[-]
procedure TForm1.btnPutImageClick(Sender: TObject);
begin
PutImageInRE(RichEdit1, Image1, 510, 50, 80, 80);
end;
Muestra:
Saludos
