mostrar 2 formularios juntos

[[oscarac]]

algo mas o menos asi
y en ese cuadrado mostrar una imagen

[Casimiro Notevi]

Empezado por oscarac

porque me gustaria que sea flotante y que no tenga relacion con el formulario primario
si agrego un panel y "ajusto" el tamaño se veria una espacio en blanco visualmente nada agradable

Empezado por oscarac

algo mas o menos asi
y en ese cuadrado mostrar una imagen

Presentar la imagen en otro formulario es fácil, puedes crearlo dinámicamente, por ejemplo, aunque se ocultará si el usuario mueve el form de los datos, la pantalla puede ser más o menos grande y no caber bien la imagen, creo que dices que el form se ajuste al tamaño de la imagen, pero si la imagen es muy grande y no cabe, ¿lo ajustas? y a partir de qué tamaño lo ajustas.
De todas formas, si quieres hacerlo así, adelante, ¿qué problema o duda tienes?

[Ñuño Martínez]

No debería haber problema. Basta con crear el otro formulario y mostrarlo (Show) en la inicialización del formulario principal. Si no quieres que el formulario principal lo pueda ocultar, haz que la propiedad "FormStyle" sea "fsStayOnTop" (ojo, esto último lo he mirado en Lazarus, que no estoy con Windows ahora, pero supongo que esto será igual que Delphi). También puedes hacer que no tenga borde ni título (BorderStyle = bsNone) y quitarle el botón (BorderIcons) cerrar para asegurarse de que no lo cerrará el usuario. Para que se mueva (o flote), usa el evento "onChangeBounds" (literalmente "al cambiar los límites") del formulario principal.

[ecfisa]

Hola.

A ver si lo que buscas es algo así...


Form de la grilla:

Código Delphi [-]
...
const
  WM_AFTER_CREATE = WM_USER + 300;
type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;
    procedure WMMoving(var Msg: TMessage); message WM_MOVING;
    procedure LocateForm2;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation  {$R *.dfm}

uses Unit2, Unit3{datos};

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  Form2.BorderStyle := bsToolWindow;
  Form2.BorderIcons := [];
  Form2.FormStyle   := fsStayOnTop;
  PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Form2.Close;
end;

//------------------------------------------------------------------------------
procedure TForm1.WmAfterCreate(var Msg: TMessage);
begin
  Form2.Show;
  LocateForm2;
end;

// Form1 se ha movido, reposicionar Form2.
procedure TForm1.WMMoving(var Msg: TMessage);
begin
  LocateForm2;
end;

// Posicionar Form2
procedure TForm1.LocateForm2;
begin
  Form2.Left := Self.Left + Self.Width;
  Form2.Top  := Self.Top + Self.Height - Form2.Height;
end;
end.

Form de la imágen:

Código Delphi [-]
...
type
  TForm2 = class(TForm)
    DBImage1: TDBImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation  {$R *.dfm}

uses Unit3 {datos};

//...

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

//------------------------------------------------------------------------------
// Form2 no se mueve
procedure TForm2.WMSysCommand(var Msg: TWMSysCommand);
begin
  if Msg.CmdType and $FFF0 = SC_MOVE then
    Msg.Result := 0
  else 
    inherited;
end;
end.

Saludos

[[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 Notevi]

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

[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

[hal1967]

Disculpen que me salga del tópico, pero este gif ¿cómo lo generaste?.


Gracias

Empezado por ecfisa

Hola.

A ver si lo que buscas es algo así...


....
Saludos

[ecfisa]

Hola.

Empezado por hal1967

Disculpen que me salga del tópico, pero este gif ¿cómo lo generaste?.

Las imágenes vienen en el archivo biolife.db que trae Delphi 7 como demo. Está incluido en el comprimido que adjunté mensajes mas arriba .

Saludos

[[oscarac]]

creo que se refiere a como pusiste ese gif en el foro