mostrar 2 formularios juntos

[[oscarac]]

es exactamente lo que busco
pero el otro form lo estoy creando en tiempo de ejecucion mas o menos asi

Código Delphi [-]
_frmimagen := TForm.Create(self);
  with _frmImagen do
  begin
    Caption:= 'Imagen';
    Height:= 230;
    Width:= 300;
    FormStyle := fsMDIChild;
    Left := self.ClientWidth + (Screen.Height - self.ClientHeight) /2 ;
    Top := self.ClientHeight + self.top - 230;
    with TImage.Create(Self) do
    begin
      Align := alClient;
      Parent:= _frmimagen;
    end;
    Show;
  end;

me da errores en el Left

pero voy a probar de la forma en que tu lo estas recomendando

otra cosa, como haces para mostrar la imagen en el post (clubDelphi) ayer quise colocar una imagen y tuve que subirla como adjunto?

[Casimiro Noteví]

Empezado por oscarac

otra cosa, como haces para mostrar la imagen en el post (clubDelphi) ayer quise colocar una imagen y tuve que subirla como adjunto?

Usa un servidor externo, por ejemplo: https://subefotos.com/

[[oscarac]]

ya me salió
pero cuando entra el foco lo recibe el formulario donde se muestra la imagen
tengo que hacer click en el formulario de la grilla para que se active

[[oscarac]]

otro tema que me he dado cuenta es que cuando al formulario donde esta la grilla lo invoco desde el formulario principal (MAIN), funciona normal, aparece el formulario con la imagen, pero cuando invoco a este mismo formulario (el de la grilla) desde otro formulario (child) no aparece la imagen....

ecfisa a que se debe ??

[Casimiro Noteví]

¿Y por qué no pones tu código?

[[oscarac]]

es el mismo codigo
creo que el problema esta en

Código Delphi [-]
 PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);

estoy investigando que hace este comando

[ecfisa]

Hola.

Empezado por oscarac

es el mismo codigo
creo que el problema esta en

Código Delphi [-]
 PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);

estoy investigando que hace este comando

La función PostMessage pone de forma asincrónica un mensaje en la cola de mensajes de la ventana indicada y retorna. Cuando ese mensaje es capturado por el método WmAfterCreate, ejecuta su código.

Saludos

[hal1967]

Donde

Código Delphi [-]
    Left := self.ClientWidth + (Screen.Height - self.ClientHeight) /2 ;

debe ser

Código Delphi [-]
    Left := self.ClientWidth + (Screen.Height - self.ClientHeight) div 2 ;

La diferencia 101/2 es 50.5 102 div 2 es 50