자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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;

 

 

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

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
3219 XE3 버전 문의 [1] secret 수정아빠 2015.02.04 11
3218 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 18 - Exercise 2 관리자 2020.07.03 31
3217 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 9 - Exercise 4 관리자 2020.07.03 35
3216 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 13 - Exercise 8 관리자 2020.07.03 42
3215 설치 에러 관련 문의 드립니다. [1] file 관리자2 2017.03.23 48
3214 [마이그레이션 세미나] C++ 빌더 기초 과정을 요청합니다. 험프리 2015.11.24 57
3213 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 11 - Exercise 5 관리자 2020.07.03 58
3212 [10.3.3 브리핑] 엔터프라이즈 커넥터가 1년 라이선스인데 어떻게 갱신하는가? 험프리 2019.12.10 63
3211 [10.3.3 브리핑] 업데이트에서 버그가 개선되었는지 확인하는 방법은? 험프리 2019.12.10 63
3210 Konopka XE8에서 사용 여부.. MrAJ 2018.12.12 64
3209 XE5 Firemonkey Mobile 넓다란세상 2019.06.22 64
3208 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 12 - Exercise 5 관리자 2020.07.03 68
3207 구글플레이에 게시시 32, 64비트 스마트폰 동시에 지원하는 방법은? [1] 화이부동 2020.07.02 69
3206 [10.3.3 브리핑] 출시 후 로드맵이 변경되었나요? 험프리 2019.12.10 70
3205 [IoT 세미나] 세미나 내용은 좋았는데 실습을 해보지 못해 아쉬워요. Humphery 2015.09.04 70
3204 [10.3 리오 출시 세미나] 매니지드 레코드 기능만 보류된 거 아닌가요? 험프리 2018.11.26 72
3203 [10.3.3 브리핑] RAD 서버관련 참고할 자료 안내 부탁드려요. 험프리 2019.12.10 73
3202 [10.2 도쿄 출시세미나] 이번 세미나에서 가장 기대되는건 당연히 리눅스 환경에서의 개발이죠....당연히..이게 얼마나 windows 버전에만큼 안정적으로 구동이 되도록 개발이 가능한지가 궁굼하네요 험프리 2017.04.06 74
3201 frxxlsexport 안보이는 현상 가나다 2019.03.06 74
3200 실행 시 Down Run Away Error..가 발생합니다 [1] sm 2017.09.21 76