delphi - 制作 Delphi TPanel 标题换行

Question

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

Answer 1

恐怕不是默认情况下。从 TPanel 的源代码中可以看到，文本是由 DrawText( )-windows 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 方法，也可以只使用标签。