Descrição

Função para criar um MessageDlg com um checkbox.

function TfrmVendas.MessageComCheckBox(mensagem :string):boolean;
var
 AMsgDialog        : TForm;
 ACheckBox         : TCheckBox;
 retorno           : boolean;
 begin
   retorno:=true;
   AMsgDialog := CreateMessageDialog(#39+mensagem+#39,  mtConfirmation, [mbYes, mbNo]);
   ACheckBox := TCheckBox.Create(AMsgDialog);
   with AMsgDialog do
   try
      Caption := 'Mensagem de aviso!';
      Height := 169;
 
      with ACheckBox do
      begin
        Parent := AMsgDialog;
        Caption := '<Mensagem do checkbox>';
        width := 555;
        Top   := 121;
        Left  := 8;
      end;
 
      if (ShowModal = ID_YES) then
      begin
        if ACheckBox.Checked then
        begin
          <código caso seja apertado o botão sim e estiver com check no checkbox>
        end
        else
        begin         
          <código caso seja apertado o botão sim e não estiver com check no checkbox>        
        end;
      end
      else
        if ACheckBox.Checked then
        begin
          <código caso seja apertado o botão não e estiver com check no checkbox>         
        end
        else
        begin
          <código caso seja apertado o botão não e não estiver com check no checkbox>          
        end;
   end;
    finally
      result:=retorno;
      Free;
    end;