我该怎么办？

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;

不完美,但希望足够好,可以给你一个想法.

安迪