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;