crea un involucro per didascalie in Delphi in TPanel

Question

C'è un modo per avvolgere il testo in un TPanel.Caption in Delphi (nel mio caso Delphi 6)?

grazie!

Answer 1

Non per impostazione predefinita, ho paura. Come si può vedere dal codice sorgente di TPanel, il testo è tratto dal 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; 

è possibile ricavare e sovrascrivere il Paint-metodo o si potrebbe utilizzare un'etichetta, invece.