Código Delphi [-] case MessageBox(Handle, PChar('desea realizar la salida del profesor'), PChar('salidar'), MB_OKCANCEL + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL) of IDOK: begin end; IDCANCEL: begin end; end;
case MessageBox(Handle, PChar('desea realizar la salida del profesor'), PChar('salidar'), MB_OKCANCEL + MB_ICONEXCLAMATION + MB_DEFBUTTON1 + MB_APPLMODAL) of IDOK: begin end; IDCANCEL: begin end; end;