utworzyć okładkę napisu w języku Delphi TPanel

Question

Czy istnieje sposób na zawinięcie tekstu w TPanel.Caption w Delphi (w moim przypadku Delphi 6)?

dziękuję!

Answer 1

Nie domyślnie, obawiam się. Jak widać z kodu źródłowego dla TPanel, tekst jest pobierany przez 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; 

Można też czerpać i zastąpić metodę malowania, czy może po prostu użyć etykiety zamiast.