알짜게시판

메세지 다이어그램(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]