デルファイTPanelを継承キャプションラップを作ります

Question

？（私の場合のDelphi 6で）DelphiでTPanel.Captionでテキストをラップする方法はあります

Answer 1

デフォルトでは、私は怖いわけではありません。あなたはTPanelのためのソースコードから見ることができるように、テキストのDrawText（）によって描画されるが、APIを-windowsます：

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;

あなたのいずれかを行うことができペイント法を導出し、上書き、またはあなただけの代わりにラベルを使用することができます。