仍然是处理多语言中碰到问题。
Delphi自2006版以后，TLabel有了EllipsisPosition属性，当长文本超过其大小时，显示以...，如下图：
这样虽然解决显示问题，但很显然，不知道...究竟省略了什么。
于是就想：此类情况，能不能鼠标移上去，以Hint显示完全文本？
追踪其源代码，及查阅资料，实现了这个想法，扩充TLabel，代码如下：
声明：
type
TLabel = class(StdCtrls.TLabel)
protected
procedure DoDrawText(var Rect: TRect; Flags: Longint); override;
end;
实现：
{ TLabel }
procedure TLabel.DoDrawText(var Rect: TRect; Flags: Integer);
begin
inherited;
if (EllipsisPosition <> epNone) and not AutoSize and Assigned(Parent)
and (not ShowHint or (Hint = ''))
and (Canvas.TextWidth(Caption) > Width) then
begin
ShowHint := True;
Hint := Caption;
end;
end;
置此代码于所在单元中，或封装为一单独单元，引用在StdCtrls之后即可。
验证问题解决。却截不到图，有兴趣者可以自己试下。
参考资料：