DelphiのTPanelキャプションラップを作成する

Question

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

ありがとうございました！

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; 

あなたが派生し、ペイントメソッドをオーバーライド、またはあなただけの代わりにラベルを使用することができますすることができます。