我尝试了许多方法来强制执行FormResize事件,包括SetWindowPos,但都没有成功。下面的代码在用鼠标调整大小时效果非常好,但我还需要用代码手动调用它。但我不想以任何方式改变表单。
procedure TFormMain.FormResize( Sender: TObject );
begin
dxDockPanelFolders1.Height := dxVertContainerDockSite1.Height div 3;
dxDockPanelFiles1.Height := dxVertContainerDockSite1.Height div 3;
dxDockPanelPreview1.Height := dxVertContainerDockSite1.Height div 3;
end;
我在搜索网络时没有找到任何实现这一点的方法。