сделать перенос заголовка Delphi TPanel

Question

Есть ли способ обернуть текст в TPanel.Caption в Delphi (в моем случае Delphi 6)?

Answer 1

Боюсь, не по умолчанию.Как видно из исходного кода TPanel, текст рисуется с помощью API DrawText()-windows:

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;

Вы можете либо получить и переопределить метод Paint, либо вместо этого использовать метку.