[delphi] posizionamento errato di un form all'avvio

[Lyll0]

ciao a tutti,

altro problema:
ho creato un pulsante che visualizza/nasconde un form:

var
  P := Point(btnStart.Left, btnStart.Top-formMenu.Height);
  P := ClientToScreen(P);
  if (vediStart=false) then
    begin
      formMenu.Show;
      formMenu.Top:=P.Y;
      formMenu.Left:=P.X;
      vediStart:=true;
      formMenu.BringToFront;
      AnimateWindow(formMenu.Handle, 5000, AW_VER_NEGATIVE);
    end
  else
    if (vediStart=true) then
      begin
        formMenu.Hide;
        vediStart:=False;
      end;

solo che:
1) perchè il controllo ANIMATEWINDOW non funziona? (cioè non viene visualizzato alcun effetto?)
2) La PRIMA volta che viene premuto il pulsante il form NON è mostrato nella GIUSTA posizione, ma leggermente più in alto...
ai clicks succcesivi il problema NON si verifica...
come mai?

ho provato a forzare il posizionamento anche con un'altra procedura

procedure MainForm.OnShow(...)
...
  P := Point(btnStart.Left, btnStart.Top-formMenu.Height);
  P := ClientToScreen(P);
  formMenu.Top:=P.Y;
  formMenu.Left:=P.X;
...

ma la prima volta che il form viene visualizzato NON compare nella giusta posizione...

ciao e grazie!

:metallica

[Lyll0]

up