panel плавное опускание вниз, это интересно

[2909]

Здравствуйте, есть панель, нужно что бы она опускалась вниз по нажатию кнопки, в общем получилось очень медленно, как сделать что бы опускалось через определенное значение, например, от -300 через 5, до 00

procedure TfrmMain.btnRaspClick(Sender: TObject);
begin
  pnlRasp.Visible:=True;

procedure TfrmMain.btnRaspClick(Sender: TObject);
var
  CoordTop:Integer;
begin
  pnlRasp.Visible:=True;
  for CoordTop :=-300 to 0 do
  pnlRasp.Top:= CoordTop;

end;

end;

[s-andriano]

По нажатию кнопки запускается таймер, а в обработчике таймера происходит перемещение панели.

[саша40]

Сообщение от s-andriano

По нажатию кнопки запускается таймер, а в обработчике таймера происходит перемещение панели.

Согласен. А там используй переменую.

[alextrof94]

У меня есть самописный класс анимации вроде той что в Delphi XE(2/3?), изменение left/top/width/height. Не комельфо конечно, но и так сойдет.
Вот тебе полный проект. Там пас файл достаточно к себе в проект переместить и использовать. В общем, там все есть для тестов.

[beegl]

procedure TDVpmCheckerFr.ShowToolsPanelOn;
var
   t: DWORD;
   r: TRect;
begin
  {$IFNDEF WHND}
  SystemParametersInfo(SPI_GETWORKAREA, 0,@r,0);
  {$ENDIF}
  {$IFDEF WHND}
  SystemParametersInfo(SPI_GETWORKAREA, 0,r,0);
  {$ENDIF}
 while DVCheckerPanel.Top < r.Bottom do
  begin
   t := GetTickCount;
    while GetTickCount - t < 1 do
    Application.ProcessMessages;
    DVCheckerPanel.Top := DVCheckerPanel.Top + 8;
    if DVCheckerPanel.Top >= 18 then
    begin
    DVCheckerPanel.Top := 18;
    Exit;
    end;
  end;
end;

procedure TDVpmCheckerFr.HideToolsPanelOff;
var
   t: DWORD;
   r: TRect;
begin
  {$IFNDEF WHND}
  SystemParametersInfo(SPI_GETWORKAREA, 0,@r,0);
  {$ENDIF}
  {$IFDEF WHND}
  SystemParametersInfo(SPI_GETWORKAREA, 0,r,0);
  {$ENDIF}
 while DVCheckerPanel.Top < r.Bottom do
  begin
   t := GetTickCount;
    while GetTickCount - t < 1 do
    Application.ProcessMessages;
    DVCheckerPanel.Top := DVCheckerPanel.Top - 8;
    if DVCheckerPanel.Top < -120 then
    begin
    DVCheckerPanel.Top := -120;
    Exit;
    end;
  end;
end;