一段时间以来,我一直在与 Align
或 Anchors
设置(如 here )的控件的奇怪行为作斗争。这次我使用了一个单元,直到我注意到按钮的顶部位置从原来的 10 移动到大约 -50,所以我试图找出原因。
如果我使用带有 BevelKind = bkFlat
的面板和带有 Anchors = [akRight, akBottom]
的控件,那么所有控件的位置将根据设置减少。如下例所示,Left
随 Anchors = [akRight]
移动,Top
随 Anchors = [akBottom]
移动。始终在面板设置的斜角的宽度内,在这种情况下,在两个方向上都是 -4。运行程序或重新打开下一个单元后,位置从(150, 10)
移动到(146, 6)
,打开并保存单元后将无限期继续。
所以我想知道在打开单元并保存到 dfm
文件后,是什么负责所有组件的位置重新计算,如果有可能修复它。
PMain.pas
unit PMain;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Grids;
type
TUMain = class(TForm)
pnl1: TPanel;
btn1: TButton;
end;
var
UMain: TUMain;
implementation
{$R *.dfm}
end.
PMain.dfm
object UMain: TUMain
Left = 0
Top = 0
Caption = 'UMain'
ClientHeight = 50
ClientWidth = 250
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object pnl1: TPanel
Left = 0
Top = 0
Width = 250
Height = 50
Align = alClient
BevelKind = bkFlat
Caption = 'pnl1'
TabOrder = 0
DesignSize = (
246
46)
object btn1: TButton
Left = 150
Top = 10
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = 'btn1'
TabOrder = 0
end
end
end
最佳答案
这似乎是 Delphi 中的一个错误。我在 Delphi 10 Seattle 中使用上面的代码重新创建了相同的行为。
您真正能做的唯一一件事就是不要在设计时设置这些特殊的斜角。相反,在运行时设置它......
pnl1.BevelKind := bkFlat;
在不深入研究控件的情况下,从 DFM 流式传输属性的顺序可能是正确(或错误)的顺序,以至于按钮位于面板之前的位置可能是它的大小需要,例如。我无法想象如果不完全重新构建 VCL,您可以进行修复,这是不可能的。
如果尚未有人报告此问题,您应该向 Embarcadero 提交 QC 报告。
关于delphi - 带有斜面的面板上控件的位置,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/43915907/