hacer una captura de subtítulos Delphi TPanel

Question

¿Hay alguna manera de ajustar el texto en un TPanel.Caption en Delphi (en mi caso, Delphi 6)?

gracias!

Answer 1

No por defecto, me temo. Como se puede ver en el código fuente de TPanel, el texto es dibujado por el 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; 

Usted puede derivar y anular el Paint-método, o usted podría utilizar una etiqueta en su lugar.