在TTabSheet中居中一個Tframe;

Question

我有一個delphi應用程序，使用PageControl與TabSheets的數量。我還在運行時創建新的TabSheets，並使用預定義幀的實例填充它們。除了不以TabSheet爲中心的整容問題外，這些框架可以很好地工作。我試圖使用Frame.Align := alClient，但那並沒有。相關代碼如下：

CreateNewPage(3); 
NewLimitedChoiceFrame := TLimitedChoiceFrame.Create(NewInputPage); 
NewLimitedChoiceFrame.Parent := NewInputPage; 

CreateNewPage創建TabSheet的新實例，使PageControl它的主人和家長。結果被分配給全局變量NewInputPage。

Answer 1

要居中其父控制做到這一點：

procedure CentreControl(Control: TControl); 
begin 
    Control.Left := (Control.Parent.ClientWidth-Control.Width) div 2; 
    Control.Top := (Control.Parent.ClientHeight-Control.Height) div 2; 
end; 

調用此函數，將幀。顯然你需要等到你分配父母之後才這樣做。

如果可以在運行時重新調整頁面控件的大小，請從標籤頁的OnResize事件中添加對此函數的調用。或者，如NGLN points out只需將控件的Anchors設置爲[]，並且VCL框架將在其父級調整大小時關注控件的居中。