Como Lograr el Efecto PopUp Menu del Messenger????

[AGAG4]

Uso D6

Estoy investigando como lograr hacer el efecto que hace el PopUp Menu del Messenger, por ejemplo, cuando en la barra de herramientas se abre una Ventana como una Persiana y Desaparece con el mismo EFECTO, encontre varios componentes en la pagina de Torry's pero son formas que no se pueden modificar, lo que quiero es posicionar la forma en la altura de la barra de herramientas del lado del reloj y darle el efecto de una persiana y meterle en la forma lo que yo quiera, como se le podría dar ese mismo efecto a una forma y posicionarlo al lado del reloj sin importar la resolución con que cuente la Computadora????

Agradezco cualquier sugerencia.

[[Héctor Randolph]]

Prueba con este hilo tal vez sea útil.

También puedes buscar en el foro con respecto a la función AnimateWindow

Un saludo

[lpmlpm]

En los componentes que vienen con la JVCL viene uno que se llama DesktopAlert que le configuras por propiedades la posición en la que ha de aparecer la ventana... puedes revisar los fuentes para ver como lo hace...

[vtdeleon]

Saludos

Existe un componetne llamado: tmsnpopup.

No estoy seguro si es esto lo que queires

[dec]

Hola,

A ver qué les parece:

Código Delphi [-]
uses
   Unit2;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   i: integer;
   topeTop: integer;
 begin
   Form2.Top := Screen.Height + Form2.Height;
   Form2.Left := Screen.Width - Form2.Width - 4;
   topeTop := Screen.Height - Form2.Height - 35;
   Form2.Show;
   i := Form2.Top;
   while (i >= topeTop) do
   begin
     Form2.Top := i;
     Dec(i, 1);
     //Dec(i, 2);
     //Dec(i, 3);
   end;
 end;

[vtdeleon]

Saludos

El código de dec estaría bien para quien tenga la barra de tama~o 35. Pues yo utilizo algunos themes (en Xp) y la barra de tareas no es siempre de ese tama~o.
Guiandome del codigo de dec (si me lo permite)

Código Delphi [-]
procedure TForm1.btn1Click(Sender: TObject);
var
  BarraTar:TRect;
  topeTop, i: integer;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @BarraTar, 0);
  Form2.Top := BarraTar.Bottom;
  Form2.Left :=   BarraTar.Right - Form2.Width - 4;
  topeTop := BarraTar.Bottom-form2.Height;
  Form2.Show;
  i := Form2.Top;
  while (i >= topeTop) do
  begin
    Form2.Top := i;
    Dec(i, 1);
  end;
end;

[AGAG4]

Voy a probar sus sugerencias y con respecto a tvDeleon el efecto que quiero es como lo hace el componente tmsnpopup ya lo estoy revisando para ver que le puedo añadir....

Que tengan Buen día.

[dec]

Hola,

Se agradece la sugerencia Troy, la incorporé a esto que copio aquí ahora... que más vale no lo hiciera, porque se va a ver en qué paro...

Código Delphi [-]
 procedure MsgPopup(const msg:
 string; const wait: integer);
 var
   i,max: integer;
   lbMsg:  TLabel;
   fmMsg:   TForm;
   panel:   TRect;
 begin
   fmMsg := TForm.Create(nil);
   try
     with fmMsg do
     begin
       Width  := 350;
       Height := 110;
       Color := clWhite;
       Caption:=' '+msg;
       SystemParametersInfo
       (48, 0, @panel,  0);
       Top := panel.Bottom;
       BorderStyle := bsToolWindow;
       FormStyle   :=  fsStayOnTop;
       lbMsg:=TLabel.Create(fmMsg);
       Left := panel.Right-fmMsg.Width-2;
       max :=panel.Bottom-fmMsg.Height-2;
       with lbMsg do
       begin
         Top  := 30;
         Left := 10;
         Height:=30;
         Parent  := fmMsg;
         AutoSize :=false;
         Caption  :=  msg;
         Font.Size :=  14;
         Font.Name := 'Arial';
         Font.Color  := clRed;
         Alignment:= taCenter;
         Font.Style:=[fsBold];
         Width := fmMsg.Width;
       end;
       Show;
       i := Top;
       while(i>=max)do
       begin
         Top := i;
         Dec(i,2);
         Refresh ;
       end;
     end;
   finally
     Sleep(wait);
     fmMsg.Free;;
   end;
 end;