알짜게시판

[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]

번호 제목 글쓴이 조회 날짜
237 [Delphi] 실행 중인 프로세스가 활성 창인지 확인하는 함수 4,306 11-02
열람 [Delphi] 메세지 다이어그램(Message Dialog) 에 체크박스(CheckBox) 추가 6,612 10-30
235 [그누보드] 부트스트랩 테마 예제로 사용중인 main.php 13,775 10-21
234 [그누보드] 유튜브 스킨 19,524 10-14
233 [윈도우] TLS 연결 끊김 해결 방법 - Kyber 비활성화 20,701 10-12
232 [PHP] 검색 로봇 접속시 종료 24,947 10-07
231 [윈도우] WinDivert 사용중인 어플리케이션 검색 39,974 09-12
230 [워드프레스] 답글 남기기 메시지 변경 41,903 09-05
229 [리눅스] PHP-FPM 튜닝을 위한 메모리 계산 40,393 08-29
228 [윈도우] 아이폰 벨소리 쉽게 추가하기 93,217 06-14
227 [윈도우] C:\Windows\Installer 폴더 다른 드라이브로 옮기기 103,648 05-29
226 작업 표시줄 (기타 시스템 트레이 아이콘) 제거 프로그램 108,179 05-18
225 [워드프레스] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 101,409 05-02
224 [그누보드] cdn.jsdelivr.net 에서 ssl 인증서 오류 문제 96,753 05-02
223 [PHP] REQUEST 값 받기(application/json 포함) 98,376 04-20
222 [Linux] 데몬(systemd service) 작성 및 실행하기 65,220 03-14
221 [PHP] Porto 테마에서 포스팅만 Loading Overlay 57,566 03-08
220 [그누보드] 아이디 대신 이메일로 회원 가입하기 87,764 02-02
219 [시크릿DNS] Kaspersky 백신 사용시 DNS 암호화 관련 4 97,926 01-04
218 [칼무리] 영역화면 크기 오류인 경우 120,770 12-12
217 [MySQL] 업데이트 이후 에러 발생([ERROR] Incorrect definition of table … 90,958 12-08
216 구글 크롬 탭검색 비활성화 71,688 12-04
215 [MySQL] MySQL, MariaDB 업데이트 73,182 11-24
214 [아이폰] HTTPS 감청 우회하기 185,555 11-01
213 Windows에 Rust 설치하기 56,982 10-05
212 HTTPS/DNS 차단 쉽게 이해하기 83,995 08-16
211 ChangeDNS - DNS 서버를 손쉽게 변경합니다. 75,228 08-13
210 [ReactNative] android directory was detected in the project. 65,055 07-20
209 [리눅스] 메일(Mail) 삭제/초기화 57,874 07-18
208 [Delphi] 윈도우 알림센터에 메시지 출력하기 55,048 06-20
207 [그누보드] 사이드바 만들기 104,795 05-04