introducir texto en imagen

[FabianSiza]

Hola amigos estoy tratando de hacer un programa para importar una imagen con Timage y ponerle textos como precio y nombre con Labels que puse dentro de la Timage pero cuando exporto la imagen sale la imagen normal sin los textos como puedo hacer para que quede con los textos y le puse figuras con Tshape y tampoco salen lo unico que hice fue arrastrar esos componentes dentro de la Timagen asi esta bien? Gracias.

[ecfisa]

Hola FabianSiza, bienvenido a Club Delphi :)

Por lo que comentas, aparentemente los Labels y Shapes quedan ocultados detrás de la imágen, tendrías que traerlos al frente.

Ejemplo:

Label1.BringToFront; // Label1 al frente
Shape1.BringToFront; // Shape1 al frente

También lo podes hacer en tiempo de diseño: Seleccionado el control (Label, Shape, etc) -> botón derecho del mouse -> Control -> Bring to Front.

Saludos :)

[FabianSiza]

hola Gracias pero ya habia pensado eso y ya los habia puesto al frente logre exportar un texto con la imagen pero con otra forma con este codigo

procedure TForm2.Button2Click(Sender: TObject);
var
AnteriorBkMode: integer;
texto:string;
begin
with Image12.Canvas do begin
Brush.Color := clRed;
TextOut(1000, 1000, texto);
AnteriorBkMode := SetBkMode(Handle, TRANSPARENT);
TextOut(350, 380, Edit1.Text);

pero es mas tedioso y solo funciona con imagenes .bmp y no se como hacerlo con los Tshape -_-