imagen en RichEdit

[ecfisa]

Hola jars.

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