刚刚开始测试FireMonkey,无法找到制作动态大小/定位组件的方法.

VCL有Anchor属性,FM没有.

有人看到我错过的东西

更新：

FM中没有简单的锚定功能.您必须创建TLayouts并对齐它们,然后将控件放在面板中以使它们“粘住”.如果您使用的是旧版本的Builder或Delphi,这将与我们以前与TPanels相同.

这是你的问题的答案. VCL中的锚属性显然已被边距和填充所取代(由于性能方面的考虑),我在XE2 wiki( http://docwiki.embarcadero.com/RADStudio/en/FireMonkey_Application_Design)上找到了一些文档.我怀疑锚是否会在以后投入使用.要在右侧的表单底部锚定两个按钮(确定和取消),请执行以下操作.请参阅下面的图像以获取确定和取消按钮.

在表格上放置一个与底部对齐的小面板,比如大约40个高度.设置底部面板上的“边距”以创建一个较小的空间,按钮将在该空间中生效,请确保将按钮设置为alRight.例如,窗体右边缘和最右边按钮之间的间隙边距为15.顶部和底部边距设置为12.固定最右边的按钮.

‘填充’与边距相反,填充将空间置于控件之外.在最右侧的按钮中,我在左侧添加了20个填充,这将是两个按钮之间的空间.对于第一个左边的第二个按钮,我们需要做的是将align属性设置为alRight,不需要调整填充或边距.

在Delphi中我在运行时显示/隐藏控件,并且它看起来不太好,因为控件突然出现或消失,所以任何人都知道一个组件可以执行show / hide(使用visible属性)但是有某种动画？

谢谢

用 AnimateWindow来试试吧.只有WinControls,它看起来并不令人惊叹：

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Button2.Visible then
    AnimateWindow(Button2.Handle,250,AW_HIDE or AW_VER_NEGATIVE or AW_SLIDE)
  else
    AnimateWindow(Button2.Handle,AW_VER_POSITIVE or AW_SLIDE);
  Button2.Visible := not Button2.Visible; // synch with VCL
end;

编辑：隐藏的线程版本同时显示多个控件：

type
  TForm1 = class(TForm)
    ..
  private
    procedure AnimateControls(Show: Boolean; Controls: array of TWinControl);
    procedure OnAnimateEnd(Sender: TObject);
  public
  end;

implementation
  ..

type
  TAnimateThr = class(TThread)
  protected
    procedure Execute; override;
  public
    FHWnd: HWND;
    FShow: Boolean;
    constructor Create(Handle: HWND; Show: Boolean);
  end;

{ TAnimateThr }

constructor TAnimateThr.Create(Handle: HWND; Show: Boolean);
begin
  FHWnd := Handle;
  FShow := Show;
  FreeOnTerminate := True;
  inherited Create(True);
end;

procedure TAnimateThr.Execute;
begin
  if FShow then 
    AnimateWindow(FHWnd,AW_VER_POSITIVE or AW_SLIDE)
  else 
    AnimateWindow(FHWnd,AW_HIDE or AW_VER_NEGATIVE or AW_SLIDE);
end;

{ Form1 }

procedure TForm1.OnAnimateEnd(Sender: TObject);
begin
  FindControl(TAnimateThr(Sender).FHWnd).Visible := TAnimateThr(Sender).FShow;
end;

procedure TForm1.AnimateControls(Show: Boolean; Controls: array of TWinControl);
var
  i: Integer;
begin
  for i := Low(Controls) to High(Controls) do
    with TAnimateThr.Create(Controls[i].Handle,Show) do begin
      OnTerminate := OnAnimateEnd;
      Resume;
    end;
end;


procedure TForm1.Button5Click(Sender: TObject);
begin
  AnimateControls(not Button1.Visible,[Button1,Button2,Button3,Edit1,CheckBox1]);
end;