fazer um envoltório legenda Delphi TPanel

Question

Existe uma maneira de quebrar o texto em um TPanel.Caption em Delphi (no meu caso Delphi 6)?

Answer 1

Não por padrão, eu tenho medo. Como você pode ver a partir do código-fonte do TPanel, o texto é desenhado pela 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;

Você pode derivar e substituir o método Paint, ou você pode simplesmente usar um rótulo em seu lugar.