¿Como inserto una imagen en un texto?

[SnaKe]

Hola,

Para grabar imágenes junto a texto debes usar formato RTF (más básico) ya que luego podrás manejarlo automáticamente mediante componentes de Delphi. Para ello tienes el componente TRichEdit pero es un pelin "pobre"... deberías utilizar el que viene con la librería Rx, el componente se llama TRxRichEdit, es mucho más potente ya que permite cargar documentos RTF en condiciones, es decir, con imagenes, insertarlas, arrastrarlas y todo eso... te resumo los métodos que debes usar...

Supongo el componente tiene por name: RxRE

Para cargar un documento RTF: RxRE.Lines.LoadFromFile (nobre del archivo : string);

Para guardar un documento RTF: RxRE.Lines.SaveToFile (nombre del archivo : string);

Para insertar una imagen en el punto en el que esté el cursor debes usar uno de los dos método siguientes:

1) Pegar lo que haya en el portapapeles, las combinación Ctrl+V ya lo hace... pero puedes poner un botón que haga eso de la forma:

RxRE.PasteFromClipboard;

2) Usar el diálogo de para incrustar objetos OLE, lo cual se reduce a poner un botón que llame a la siguiente función:

RxRE.InsertObjectDialog;

Las fotos insertadas puedes automáticamente arrastrarlas a otra posición, suprimirlas con la tecla SUPR etc.

Luego un botón guardar que guarde el fichero de la forma que te dije arriba en formato RTF y listo, como detalle puedes ponerle que solo sea enabled cuando la propiedad Modified del RxRE sea true y sacar un SaveDialog para que el usuario ponga el nombre del fichero RTF.

Con eso básicamente puedes ya manejar los ficheros RTF luego podrás abrirlos con el WordPad o en tu propia aplicación con todas tus fotos.

Un saludo.