Delphi Tpanel 캡션 랩을 만드십시오

StackOverflow https://stackoverflow.com/questions/1274518

  •  16-09-2019
  •  | 
  •  

문제

텍스트를 TPanel.Caption Delphi에서 (제 경우에는 Delphi 6)?

도움이 되었습니까?

해결책

기본적으로 두렵지 않습니다. TPANEL의 SourcEcode에서 볼 수 있듯이 텍스트는 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;

페인트 방법을 도출하고 무시하거나 대신 라벨을 사용할 수 있습니다.

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top