control deslizante

[anubis]

Gracias caral, ya invente un sistema acorde con lo que me decias.
Un tpanel, empezando en la izquierda y si se mueve el raton en la zona que debe dibujarse sale, lo unico malo es que tengo que poner un boton para ocultarla.

Código Delphi [-]
procedure Tfentrada.pmadminisMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);

    var
  posi:integer;
    begin
if ((x>=-1) and (x<=5)) and (pmadminis.width=5)then
     for posi :=5  to 88 do
    pmadminis.Width:=posi*2;

    end;

gracias
saludos