如何在縮放後居中一個TLayout

Question

我有一個MyFrame（TFrame），它包含一個MyLayout（TLayout）和Align = Center。 我使用MyFrame.Scale減少/放大MyLayout及其內容。縮放工作正常。任何想法如何在縮放後在MyFrame中將MyLayout視覺中心化？

Answer 1

MyLayout.Position.X := (Self.Width - MyLayout.Width*newScale.X)/2; 
MyLayout.Position.Y := (Self.Height - MyLayout.Height*newScale.Y)/2; 

Answer 2

你可以把你的佈局在TGridPanelLayout：http://docwiki.embarcadero.com/Libraries/Seattle/en/FMX.Layouts.TGridPanelLayout

如果你有4行4列的網格，你可以把你的佈局單元格[1,1]與ROWSPAN = 2， ColumnSpan = 2，並將TGridPanelLayout和MyLayout的Align屬性更改爲Client。然後，您的佈局將始終居中。