machen Sie eine Delphi TPanel Beschriftung Wrap

Question

Gibt es eine Möglichkeit, den Text in Delphi (in meinem Fall Delphi 6) in eine TPanel.Caption zu wickeln?

danke!

Answer 1

Nicht standardmäßig, fürchte ich. Wie Sie aus dem Quellcode für TPanel sehen können, wird der Text durch die DrawText() gezeichnet -Fenster 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; 

können Sie entweder ableiten und die Paint-Methode überschreiben, oder Sie könnten nur ein Etikett stattdessen verwenden.