使德爾福TPanel字幕包裝

Question

有沒有一種方法來包裝在德爾福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法，或者你可以只使用一個標籤來代替。