Menu desplegable tipo Windows 8

[pape19]

Hola buenas tardes.

Necesito agregar a mi aplicación una barra, o menú, como la que se desplega en Windows 8 en el escritorio, cuando movemos el mouse hacia la derecha. Al volver a mover el mouse a la izquierda este menú desaparece.

Conocen algún componente(libre o de pago), o manera de lograr esto?

Muchas gracias

[[oscarac]]

me parece haber visto algo de eso en los componentes JEDI

[pape19]

oscarac gracias por tu respuesta.

Busqué en los componentes JEDI y no encontré un componente que lo logré, no recuerdas cual es el nombre del que te refieres?

Gracias!

[[movorack]]

Buen día.

En Delphi About puedes encontrar un ejemplo de como hicieron un dock parecido al de mac - Mac OS X Doc Launcher Simulator

[pape19]

Gracias movorack por el aporte, capaz no me he explicado bien sobre lo que necesito.

En realidad sería una especie de menú, que aparece cuando muevo el mouse a uno de los dos vértices de la parte derecha de la pantalla, algo así como actúa el menú de Windows 8.

http://www.mswin.org/blog/wp-content...0/sshot-92.png

Una vez que quito el puntero que está sobre el menú, que el mismo desaparezca de la pantalla desplazandosé.

[blackx5n]

Necesito agregar a mi aplicación una barra, o menú, como la que se desplega en Windows 8 en el escritorio, cuando movemos el mouse hacia la derecha. Al volver a mover el mouse a la izquierda este menú desaparece.

No se si te sirva esto que hice como ejemplo, te puede dar una idea de como crear lo que quieres.

[pape19]

Black muchas gracias por el ejemplo, está muy buena la forma en que lo realizas; pero necesito lograr el efecto de desplazamiento del control que aparece y desaparece.

[[movorack]]

Y que has buscado? Cual es tu duda? Porque los ejemplos creo que son una buena base para hacer lo que buscas.

[pape19]

He tratado de varias formas, con las que me ofrecieron y jugando con los eventos de las acciones del Mouse. Se logra que cualquier control aparezca y desaparezca, pero con los ejemplos que me han ofrecido y de las formas que lo he intentado, no doy con la manera de lograr un desplazamiento visible de un control, que puede ser un panel por ejemplo.

No se si me explico...

[ecfisa]

Hola pape19.

Te adjunto un ejemplo a ver si te sirve de este modo.

Saludos

[pape19]

Excelente ecfisa! Es justo lo que necesito, sabía que de alguna manera se podía lograr.

Agradezco mucho a todos los que me han ayudado con esto.

Saludos!

[ecfisa]

Hola.

Agrego el código previniendo el posible borrado del adjunto por falta de espacio (o descuido... )

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormShow(Sender: TObject);
  private
  public
  end;

var
  Form1: TForm1;

implementation {$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  with Panel1 do
  begin
    BevelOuter := bvNone;
    BevelInner := bvNone;
    BorderStyle:= bsNone;
    Ctl3D      := False;
    Visible    := False;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if X >= ClientWidth - 10 then
   AnimateWindow(Panel1.Handle, 300, AW_ACTIVATE + AW_SLIDE + AW_HOR_NEGATIVE)
  else
   AnimateWindow(Panel1.Handle, 300, AW_HIDE + AW_SLIDE + AW_HOR_POSITIVE);
end;

end.

Saludos