制作Delphi TPanel字幕包

发布时间：2020-12-15 04:00:36 所属栏目：大数据来源：网络整理

导读：有没有办法将文本包装在Delphi的TPanel.Caption中(在我的案例中是Delphi 6)？谢谢！解决方法不是默认情况下,我很害怕.正如您在TPanel的源代码中看到的那样,文本由DrawText() – 窗口api绘制： procedure TCustomPanel.Paint;{snip}begin {snip} Flags :=

有没有办法将文本包装在Delphi的TPanel.Caption中(在我的案例中是Delphi 6)？

谢谢！

解决方法

不是默认情况下,我很害怕.正如您在TPanel的源代码中看到的那样,文本由DrawText() – 窗口api绘制：

procedure TCustomPanel.Paint;
{snip}
begin
  {snip}
  Flags := DT_EXPANDTABS or DT_SINGLELINE or
    VerticalAlignments[FVerticalAlignment] or Alignments[FAlignment];
  Flags := DrawTextBiDiModeFlags(Flags);
  DrawText(Handle,PChar(Caption),-1,Rect,Flags);
end;

您可以派生和覆盖Paint-method,也可以只使用标签.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!