자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

a1.png 

appearance에서 Custom Style을 선택한경우 datetimepicker가 위와 같이 표시됩니다.

테두리를 마우스를 드래그하면 아래화면처럼 표시되는데....

 

appearance를 선택하지 않으면 아래처럼 표시되고(색상없이)... 

아래 소스를 사용하면 색상없이 아래처럼 표시됩니다.

 

처음부터 소스사용하지 않고 아래 화면으로 표시할수 있는 방법이 있나요?

 

 

a2.png

 

 

 

begin

  hDTP := DateTime_GetMonthCal((sender as TDateTimePicker).Handle);

 

  Style := GetWindowLong(hDTP, GWL_STYLE);

  SetWindowLong(hDTP,  GWL_STYLE, Style or MCS_DAYSTATE);

 

  r := Rect(0, 0, 0, 0);

  SendMessage(hDTP, MCM_GETMINREQRECT, 0, Longint(@r));

 

  intTodayWidth := SendMessage(hDTP, MCM_GETMAXTODAYWIDTH, 0, 0);

 

  GetClassName(GetParent(hDtp), cname, sizeof(cname));

  if AnsiSameText(cname, 'DropDown') then

  begin

    hDTP := GetParent(hDTP);

 

    inc(r.Right, 56);

    inc(r.Bottom, 6);

  end;

 

  //4. to set new the height and width

  MoveWindow(hDTP, r.Left, r.Top, r.Right-r.Left, r.Bottom-r.Top, true);

end;

 

 

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------