mostrar frame como modal

[peccatum]

aquí está dentro de un circulo rojo el botoncito al que hago referencia :

http://img387.imageshack.us/my.php?i...toncitooz0.jpg


seteando la propiedad dragMode a DMAautomatic y la otra que hago referencia arriba a dkDrag el frame en cuestion se puede mover fuera del form... y es cuando aparece... y no puedo capturar el evento cuando el usuario apreta allí... ahora se entiende un poco mas?

[dec]

Hola,

Empezado por peccatum

aquí está dentro de un circulo rojo el botoncito al que hago referencia :

http://img387.imageshack.us/my.php?i...toncitooz0.jpg


seteando la propiedad dragMode a DMAautomatic y la otra que hago referencia arriba a dkDrag el frame en cuestion se puede mover fuera del form... y es cuando aparece... y no puedo capturar el evento cuando el usuario apreta allí... ahora se entiende un poco mas?

Sí; desde luego. Y me disculpo, pues desconocía esa cualidad de los "Frames".

Estoy tratando de hacer alguna prueba, pero, no consigo que el "Frame" se me muestre fuera del formulario (con el botón), ni aun usando las propiedades y valores que has mencionado, ¿tal vez el formulario también está implicado y necesito establecer alguna de sus propiedades de alguna manera?

Tal como imagino, tal vez podría capturarse el mensaje que Windows envíe a la ventana del "Frame" cuando se pulsa en el botón cerrar: el "Frame" no implementa un evento "OnClose", pero, podríamos mirar de capturar el mensaje de Windows susomentado. Pero como veo que el "Frame" tiene más eventos relacionados con el "Drag"... y yo en esto estoy pez... igual alguno de estos eventos sería el indicado...

[peccatum]

Empezado por peccatum

y la otra que hago referencia arriba a dkDrag

perdon, la propiedad DragKind la pongo a dkDock, entonces se puede mover el frame a cualquier lugar, incluso se puede resizear en tiempo de ejecución...

sacar el botón de algúna forma también me serviría...

Saludos!

[roman]

Interesante cuestión

El problema aquí es que ese botón realmente no pertenece al Frame. Cualquier derivado de TWinControl tiene la capacidad de arrastrarse fuera de su contenedor; lo mismo que haces con el Frame, puedes hacerlo con un Panel, por ejemplo, o ¡incluso con un Button! Al hacerlo con este último queda más clara la situación: al arrastar el control fuera del formulario, lo que sucede es que la VCL crea un formulario en caliente, de tipo TCustomDockForm e inserta en él el control.

Así pues, es con este último formulario con quien tenemos que lidiar.

Para ello, hay que capturar el mensaje CM_FLOAT del control (el Frame) que se le manda cuando -justamente- se pone a flotar y se crea el CutomDockForm.

El mensaje manda como parámetro dicho formulario y lo que podemos hacer es reemplazar su WindowProc por uno nuestro para interceptar el mensaje WM_CLOSE.

Aquí más o menos la idea:

Código Delphi [-]
type
  TFrame2 = class(TFrame)
  private
    OldHostWndProc: TWndMethod;

    procedure CMFloat(var Msg: TCMFloat); message CM_FLOAT;
    procedure HostWndProc(var Message: TMessage);
  end;

implementation

{ TFrame2 }

procedure TFrame2.CMFloat(var Msg: TCMFloat);
begin
  inherited;
  if (TObject(Msg.DockSource.DragTarget) is TCustomDockForm) then
  begin
    OldHostWndProc := TCustomDockForm(Msg.DockSource.DragTarget).WindowProc;
    TCustomDockForm(Msg.DockSource.DragTarget).WindowProc := HostWndProc;
  end;
end;

procedure TFrame2.HostWndProc(var Message: TMessage);
begin
  if Message.Msg = WM_CLOSE then
    ShowMessage('Frame Closed!');

  OldHostWndProc(Message);
end;

// Saludos

[dec]

Hola,

Ahí es nada Román. Yo me ví ayer tratando de sustituir el "WindowProc" (siguiendo código tuyo, por cierto) del "Frame" y... nada de nada. Y ahora se comprende perfectamente porqué no era posible hacerlo de ese modo, por lo menos hasta donde yo llegué. Nada, nada, que el que sabe, sabe, y el que no que aprenda.

[[egostar]]

Empezado por dec

Hola,

Ahí es nada Román. Yo me ví ayer tratando de sustituir el "WindowProc" (siguiendo código tuyo, por cierto) del "Frame" y... nada de nada. Y ahora se comprende perfectamente porqué no era posible hacerlo de ese modo, por lo menos hasta donde yo llegué. Nada, nada, que el que sabe, sabe, y el que no que aprenda.

Hola, he estado siguendo este hilo porque nunca he usado frames, no se que beneficios aporte pero veo que tiene sus detalles, bien dices amigo dec el que sabe sabe y yo pues........ me pongo a estudiar

Salud OS

[peccatum]

Gracias roman por el esclarecimiento de este tema, igualmente el codigo no me resulta del todo amistoso, jeje, voy a ver como lo soluciono.

Me queda una incógnita y es cómo hacer para que el usuario pueda mover uno de estos componentes libremente dentro del form, tal cual uno los mueve en tiempo de diseño, no en modo 'flotante' digamos.... quizás es una simple configuración de propiedades pero no he dado con ella...

Saludos y gracias...

[roman]

Empezado por egostar

Hola, he estado siguendo este hilo porque nunca he usado frames, no se que beneficios aporte pero veo que tiene sus detalles

En realidad, como dije arriba, no son detalles de los frames. La flotación y anclaje (floating and docking ) son intrínsecas de cualquier control de ventana (TWinControl).

Los frames son simplemente (creo que ya lo mencionó dec) un "super panel": como un panel, puede agrupar distintos controles, pero, además tiene dos grandes ventajas:

1. Puede diseñarse como si se tratase de un formulario, esto es, en una ventana aparte, lo cual es muy cómodo cuando, por ejemplo, quieres trabajar con varios grupos de controles en un mismo formulario (alternándolos) y no quieres estar liándote con veinte páneles en tiempo de diseño.

2. Son reusables. Un Frame es como un componente que puedes insertar en uno o más formularios; le puedes definir propiedades y métodos.

// Saludos