Bir Delphi TPanel resim yazısı hazırlayın

Question

Metni bir Delphi'de bir TPanel.Caption içine sarmalamanın bir yolu var mı (benim durumumda Delphi 6)?

Teşekkürler!

Answer 1

Varsayılan olarak değil, korkarım. Eğer TPanel için kaynak kodu da görebileceğiniz gibi, metin DrawText() tarafından çekilir api -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; 

Sen türetmek ve Boya yöntemini geçersiz ya da sadece yerine bir etiket kullanabilirsiniz ya. Bir etiket kullanmayı öneren