Orden formularios

[ecfisa]

Hola de nuevo mi incompredido amigo...

Más o menos esto es de lo que te hablaba en el mensaje anterior:



Culpa tuya ahora todo el mundo se dará cuenta que mi manejo de imágenes (y mi gusto con las mísmas) son pésimos...

Un saludo.

[[newtron]]

Empezado por Casimiro Notevi

Vamos a cambiarle el nombre, ahora será Newtron, El Incomprendido

Si, estoy pensando en cambiar mi avatar a este:

Empezado por ecfisa

Hola de nuevo mi incompredido amigo...

Más o menos esto es de lo que te hablaba en el mensaje anterior:



Culpa tuya ahora todo el mundo se dará cuenta que mi manejo de imágenes (y mi gusto con las mísmas) son pésimos...

Un saludo.

Pues a mi me mola, tiene un cierto toque galáctico.

Empezado por Al González

Tú quieres que la aplicación trabaje bajo el modelo MDI, pero con formularios "normales". Pues bien, ¿por qué no nos explicas qué inconvenientes habría si los estableces como fsMDIChild? Varias de las desventajas naturales de este esquema, creo yo, podrían ser salvables.

El problema es que mis formularios son complejos y me está resultando complicado pasarlos a MDIChild pero creo que para dejar de ser el hazmerreir del foro voy a zanjar esto y seguiré trabajando en convertir los formularios a MDIChild, si es posible, porque me estoy encontrando con algún problema duro.

Como siempre gracias a todos por vuestra atención.

[ecfisa]

Empezado por newtron

voy a zanjar esto y seguiré trabajando en convertir los formularios a MDIChild, si es posible, porque me estoy encontrando con algún problema duro.

Entre tantos para aportar ideas, no habrá duro que no se ablande.

Vos andá tirando las dificultades que se te presenten y desde yá, contá con mi ayuda para que las cosas difíciles no te resulten sencillas.

Saludos.

[Casimiro Noteví]

Empezado por newtron

Si, estoy pensando en cambiar mi avatar a este:

Hombre, pero si es mi amigo Calimero

Empezado por newtron

para dejar de ser el hazmerreir del foro voy a zanjar esto

Tampoco es eso, es simplemente que no se le ve mucha lógica, según nuestra lógica, que puede diferir de la lógica de los demás, como es lógico.

[[newtron]]

Empezado por ecfisa

Entre tantos para aportar ideas, no habrá duro que no se ablande.

Vos andá tirando las dificultades que se te presenten y desde yá, contá con mi ayuda para que las cosas difíciles no te resulten sencillas.

Saludos.

Gracias amigo.

Empezado por Casimiro Notevi

Tampoco es eso, es simplemente que no se le ve mucha lógica, según nuestra lógica, que puede diferir de la lógica de los demás, como es lógico.

Si, totalmente lógico.

[[escafandra]]

Me gustaría aportar mi granito de arena.

Si no entiendo mal, pretendes realizar una aplicación multiformulario que no sea MDI. Entonces Tu formulario principal se pone delante de todos tapándolos cuando se activa, siendo esto lo que quieres evitar. ¿Es así?.

Aunque pienso, coincidiendo con otros, que lo mejor es usar MDI, te propongo este ejemplo de aplicación multiformulario no MDI:

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure WndProc(var Message: TMessage); override;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

function GetBackForm(Form: TForm): TForm;
var
  hWnd: Cardinal;
begin
  hWnd:= Form.Handle;
  Result:= Form;
  repeat
     if (FindControl(hWnd) is TForm) then Result:= FindControl(hWnd) as TForm;
     hWnd:= GetNextWindow(hWnd, GW_HWNDNEXT);
  until hWnd = 0;
end;

// Mostramos o creamos varios formularios
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  Form3.Show;
end;

// Interceptamos los mensajes de MainForm
procedure TForm1.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    WM_MOUSEACTIVATE:
    begin
      if Lo(Message.lParam) = HTCAPTION then  
         Message.Result := MA_NOACTIVATEANDEAT
      else
         Message.Result:= MA_NOACTIVATE;
      exit;
    end;
    WM_WINDOWPOSCHANGED:
    begin
      // Aseguramos que MainForm esté siempre detrás
      SetWindowPos(Handle, GetBackForm(self).Handle, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE);
      exit;
    end;
  end;
  inherited WndProc(Message);
end;

end.

Aunque no me termina de convencer del todo, este ejemplo mantiene al formulario principal, siempre detrás del resto de los formularios de la aplicación.


Saludos.

[[escafandra]]

Perdón .

Releyendo el código me he dado cuenta de que deje un gazapo al eliminar partes del código inútil tras realizar pruebas. Como no lo puedo editar, muestro aquí el gazapo y la corrección:

Donde dice:

Código Delphi [-]
if not S then inherited WndProc(Message);

Debe decir:

Código Delphi [-]
inherited WndProc(Message);

S es una variable que elimine...

Saludos.

[Casimiro Noteví]

Corregido

[[newtron]]

Gracias escafandra. Parece que tú has sido el único con la sensibilidad suficiente para entender mis penas.

"Bucearé" en tu código y te cuento.

Gracias de nuevo y un saludo

[[newtron]]

Amigo escafandra.

El ejemplo que me has propuesto hace más de lo que yo necesitaba, he usado la parte del código que mantiene el formulario principal al fondo de los demás y me sirve a la perfección, era lo que estaba buscando (aunque os parezca raro, bueno, yo es que soy un tío raro ).

Empezado por Casimiro Notevi

Eso me ha herido, que uno también tiene su corazoncito

No te pongas triste, ven que te dé un chillaito.... ayyyyyyyyyyyyyyyyyyyyyyyyy.... :P

Gracias a todos por vuestra atención y un saludo.

[roman]

A ver, no entiendo. Yo iba por el mismo camino que escafandra (aunque no tan completo)

Empezado por roman

Ok. Ahí te va una aproximación a lo que quieres:

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    procedure WMMouseActivate(var Message: TWMMouseActivate); message WM_MOUSEACTIVATE;
  end;

implementation

procedure TForm1.WMMouseActivate(var Message: TWMMouseActivate);
begin
  Message.Result := MA_NOACTIVATE;
end;

y sin embargo, mi opción la descartaste. Probando el código de escafandra noto que tampoco permite seleccionar opciones del menú. ¿Entonces?

Me siento ofendido, ja, ja

// Saludos