forms - 我怎样才能做到这种效果？

Question

我正在尝试在 delphi 中执行以下操作:当您按下按钮时，我会显示一个下拉面板，其中包含如下选项:



有谁知道如何用 VCL 制作这种效果？
现在我有一个带有 2 个面板的表单，主要总是显示并且有一个侧按钮，当我按下按钮时侧面板显示，但我想制作效果。
谢谢

Answer 1

我不知道你的应用程序的细节，透明度和其他事情。但是，我认为您必须自己以某种循环方式为面板/窗口设置动画。我不知道任何 VCL 函数。

这是一个动画窗口的示例(虽然它快速而肮脏):



代码:

procedure TForm1.Button1Click(Sender: TObject);
var
  I, X: Integer;
begin
  Form2.Width := 1;
  Form2.Height := Form1.Height;
  Form2.Left := Form1.Left + Form1.Width;
  Form2.Top := Form1.Top;
  Form2.Show;

  Timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if I < 500 then
  begin
    I := I + 1;
    Form2.Width := I;
  end
  else
  begin
    Timer1.Enabled := false;
  end;
end;

不完美，但希望足以给你一个想法。

安迪