我有简单的形式TForm1
有 2 个面板。首先与Align := alLeft
第二个是Align := alClient
和空框TFrame1
。当我将以下过程添加到表单中时,一切正常。
procedure TForm1.FormCreate(Sender: TObject);
var
lFrame1, lFrame2 : TFrame1;
begin
lFrame1 := TFrame1.Create(nil);
lFrame1.Parent := pnl1;
lFrame1.Align := alClient;
lFrame2 := TFrame1.Create(nil);
lFrame2.Parent := pnl2;
lFrame2.Align := alClient;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
pnl1.Width := ClientWidth div 2;
end;
但是当我设置Constrains
for TFrame1
, 例如TFrame1.Contraints.MinWidth := 100
并最大化并恢复窗体,则窗体将不会返回到之前的状态。无论框架大小、表单大小或约束值如何,它总是以相同的方式结束。在我的例子中,默认表单的宽度为 300,最大化并恢复后,它以 1062 结尾。但是没有Constraints
or FormResize
有用。有人可以解释这种奇怪的行为吗?
None
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)