알짜게시판

[Delphi] 메세지 다이어그램(Message Dialog) 에 체크박스(CheckBox) 추가

메세지 다이어그램(Message Dialog) 에 체크박스(CheckBox) 를 추가한 예제입니다.

CreateMesageDialog, CheckBox 를 사용합니다.

[code] uses Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; function UpdateDialog: Boolean; var  Dialog: TForm;  ChkBox: TCheckBox; begin  Dialog := CreateMessageDialog('업데이트가 정보가 있습니다.'+#13#13+'안정적으로 사용하기 위해 업데이트를 하시길 권장합니다.'+#13#13+'다운로드 받으시겠습니까?', mtWarning, [mbYes, mbNo]);  ChkBox := TCheckBox.Create(Dialog);  with Dialog do  begin    Caption := '업데이트';    FormStyle := fsStayOnTop;    Position := poScreenCenter;    Scaled := True;    Height := Height + ScaleValue(50);    with ChkBox do    begin      Parent := Dialog;      Caption := '일주일 보지 않기';      Width := Dialog.Width;      Top := Dialog.Height - ScaleValue(70);      Left := ScaleValue(10);    end;    for I := 0 to Dialog.ComponentCount - 1 do    if Dialog.Components[i] is TButton then      case TButton(Dialog.Components[i]).ModalResult of        mrYes: TButton(Dialog.Components[i]).Caption := '확인';        mrNo:  TButton(Dialog.Components[i]).Caption := '취소';      end;    if ChkBox.Checked then    begin      // 일주일 보지 않도록 하는 기능 추가    end;    Result := ShowModal = ID_YES;  end; end; [/code]

로그인 후 댓글내용을 입력해주세요

제목 글쓴이 조회 날짜
[윈도우] Chrome 및 Edge를 TLS 1.2 모드로 실행 1 3,621 08-30
[HTML] 애드센스 자동 광고 사용 시 빈 화면이 출력된다면? 93,429 06-20
[윈도우] 브라우저 환경설정 추출 95,174 06-18
[워드프레스] xmlrpc.php 차단으로 보안 강화하기 107,427 06-05
[Delphi] 폼이 모니터 한 가운데 있는 경우 자연스럽게 왼쪽으로 이동시키기 117,250 05-26
[윈도우] WSH script registration is not valid. 120,527 05-23
[워드프레스] 제목 블록 기본값을 H5로 변경하는 방법 114,895 05-22
[파이썬] 동영상 특정 영역 모자이크(흐리게) 하기 46,520 04-30
[리눅스] 구글 크롬 콘솔 'Attestation check for Topics on' 에러 원인 & 해결방… 59,588 04-11
[크롬] 개발자 도구(DevTools)에서 붙여넣기 안될때 71,819 03-10
[그누보드] SmartEditor2Skin.html 다운로드 되는 현상 109,855 01-08
[윈도우] 네트워크 탐지 113,844 12-31
[Delphi] TrayIcon 이 흐릿하게 보이는 버그? 수정 127,825 12-12
[Delphi] 실행 중인 프로세스가 활성 창인지 확인하는 함수 145,145 11-02
[Delphi] 메세지 다이어그램(Message Dialog) 에 체크박스(CheckBox) 추가 132,048 10-30
[그누보드] 부트스트랩 테마 예제로 사용중인 main.php 115,364 10-21
[그누보드] 유튜브 스킨 74,703 10-14
[윈도우] TLS 연결 끊김 해결 방법 - Kyber 비활성화 221,343 10-12
[PHP] 검색 로봇 접속시 종료 56,161 10-07
[윈도우] WinDivert 사용중인 어플리케이션 검색 45,103 09-12
[워드프레스] 답글 남기기 메시지 변경 42,624 09-05
[리눅스] PHP-FPM 튜닝을 위한 메모리 계산 41,157 08-29
[윈도우] 아이폰 벨소리 쉽게 추가하기 94,039 06-14
[윈도우] C:\Windows\Installer 폴더 다른 드라이브로 옮기기 104,709 05-29
작업 표시줄 (기타 시스템 트레이 아이콘) 제거 프로그램 165,263 05-18
[워드프레스] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 102,030 05-02
[그누보드] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 97,526 05-02
[PHP] REQUEST 값 받기(application/json 포함) 99,075 04-20
[리눅스] 데몬(systemd service) 작성 및 실행하기 66,080 03-14
[PHP] Porto 테마에서 포스팅만 Loading Overlay 58,259 03-08
[그누보드] 아이디 대신 이메일로 회원 가입하기 89,746 02-02