faire un enveloppement de légende TPanel Delphi

Question

Existe-t-il un moyen d'envelopper le texte dans un TPanel.Caption dans Delphi (dans mon cas Delphi 6)?

merci!

Answer 1

Pas par défaut, j'ai peur. Comme vous pouvez le voir dans le code source pour TPanel, le texte est tiré par le DrawText() -fenêtres 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; 

Vous pouvez tirer et passer outre la peinture méthode, ou vous pouvez simplement utiliser une étiquette à la place.