Firemonkey：如何正确对齐右侧的标签？ [英] Firemonkey: How to align properly label on the right?

问题描述

如果我愿意

RectangleCont.beginUpdate;

myText1 := TText.Create(RectangleCont);
myText1.parent := RectangleCont;
myText1.text := 'a long text'; 
myText1.Position.x := RectangleCont.width - myText1.width; // 150px for exemple
myText1.align := TalignLayout.right;

myText2 := TText.Create(RectangleCont);
myText2.parent := RectangleCont;
myText2.text := 'OK';
myText2.Position.x := RectangleCont.width - myText1.width - myText2.width; // 50px for exemple
myText2.align := TalignLayout.right;

myText3 := TText.Create(RectangleCont);
myText3.parent := RectangleCont;
myText3.text := 'OK';
myText3.Position.x := RectangleCont.width - myText1.width - myText2.width - myText3.width; // 0px for exemple
myText3.align := TalignLayout.right;

RectangleCont.EndUpdate;

我将拥有< myText1>< myText3>< myText2> 而不是< myText3>< myText2>< myText1>

注意：如果我在 myText1.text 中放入较短的文本，则它可以正常工作。

Note: if I put shorter text in myText1.text then it works properly.

有什么解决方法吗？

推荐答案

Delphi Align 属性适合大多数情况下，但是当您有更罕见的需求时，编写自己的resize事件并不难。只需跳过在代码中设置 Align 和 Position 属性，然后使用此代码（未经测试，但我如果我忘记了一些东西，以为您知道了这个主意）：

The Delphi Align property is good for most situations, but when you have more rare needs, it is not difficult to write your own resize event. Simply skip setting the Align and Position properties in your code, and instead use this code (it is untested, but I think you get the idea, in case I forgot something):

...
RectangleCont.OnResize := DoResizeRectangle;
...


procedure TMainForm.DoResizeRectangle(aSender: TObject);
var lParent: TControl;
begin
  lParent := TControl(aSender);
  myText1.Height := lParent.Height;
  myText2.Height := lParent.Height;
  myText3.Height := lParent.Height;
  myText1.Position.Point := PointF(lParent.Width-myText1.Width, 0);
  myText2.Position.Point := PointF(myText1.Position.X-myText2.Width, 0);
  myText3.Position.Point := PointF(myText2.Position.X-myText3.Width, 0);
end;

这篇关于Firemonkey：如何正确对齐右侧的标签？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！