[Delphi] 메세지 다이어그램(Message Dialog) 에 체크박스(CheckBox) 추가
- 10-30
- 6,611 회
- 0 건
메세지 다이어그램(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]