machen eine Delphi TPanel caption Wrap

Question

Gibt es eine Möglichkeit, den Text in einem TPanel.Caption in Delphi (in meinem Fall Delphi 6)?

zu wickeln

Answer 1

Standardmäßig nicht, fürchte ich. Wie Sie aus dem Quellcode für TPanel sehen kann, wird der Text durch die DrawText gezogen wird () -Fenster 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;

Sie können entweder ableiten und die Paint-Methode überschreiben, oder Sie könnten nur ein Etikett stattdessen verwenden.