相关疑难解决方法(0)

需要你的帮助(我一直在寻找).我在德尔福西雅图,尝试顺利调整表格的底部.在我的情况下,"调整大小"只是有点崩溃/扩展,如下所示:

我怎么能意识到这一点？

我尝试过使用TTimer:

procedure TForm1.Timer1Timer(Sender: TObject);
var
h, t: integer;
begin
t := Button10.Top + Button10.Height + 10; //slide TForm from/to this point
if t > h then
begin
h := h + 1;
Form1.Height := h;
end
else
begin
Timer1.Enabled := false;
end;
end;

...但它看起来非常简单(没有加速/减速),即使间隔很小也行动缓慢.