gpt4 book ai didi

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

转载 作者:行者123 更新时间:2023-12-03 18:04:11 24 4
gpt4 key购买 nike

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

Panel Desplegable

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

最佳答案

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

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

enter image description here

代码:

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;

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

安迪

关于forms - 我怎样才能做到这种效果?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/21160517/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com