델파이 messagedlg 세가지버튼 처리

델파이 messagedlg 세가지버튼 처리

 

var

  buttonSelected : Integer;

begin

  // Show a custom dialog

  buttonSelected := messagedlg('Custom dialog',mtCustom, 

                              [mbYes,mbAll,mbCancel], 0);

 

  // Show the button type selected

  if buttonSelected = mrYes    then ShowMessage('Yes pressed');

  if buttonSelected = mrAll    then ShowMessage('All pressed');

  if buttonSelected = mrCancel then ShowMessage('Cancel pressed');