Delphi/끄적이기
[TPageControl] Tab 수동으로 그리기
기본 컴포넌트만 써야하는 상황에서 PageControl의 Tab 모양에 변화를 주기위해 Custom으로 그려보았습니다. uses .., Vcl.ComCtrls, CommCtrl; type TCheckBoxInfo = record Pos: TPoint; Width: Integer; Height: Integer; Checked: Boolean; end; //Developist Custom PageContorl TPageControl = class(Vcl.ComCtrls.TPageControl) private FCheckBoxInfo: TCheckBoxInfo; protected //TabControl BackGround procedure PaintWindow(DC: HDC); override; //Tab을 ..