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

[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;