如题

解决方案 »

  1.   

    application.messagebox('message info','Hint',48);
      

  2.   

    application.messagebox('提示内容','提示标题',information,[mbok],0);
      

  3.   

    Application.MessageBox('确认吗?','Message',MB_OK+MB_ICONQUESTION);
      

  4.   

    MessageBox 定义方法:
        Application.MessageBox('确认吗?','Message',MB_YESNO);
      

  5.   


        Application.MessageBox('确认吗?','Message',MB_YESNO);
      

  6.   

    if MessageDlg('Welcome to my Object Pascal application.  Exit now?',
        mtConfirmation, [mbYes, mbNo], 0) = mrYes then
      begin
        MessageDlg('Exiting the Object Pascal application.', mtInformation,
          [mbOk], 0);
        Close;
      end;
      

  7.   

    Application.MessageBox('确认吗?','Message',MB_YES);
      

  8.   

    var
      i:ingeger;
    begin
      i:=Application.MessageBox('确认吗?','询问',MB_YesNoCancel+MB_IconQuestion);
      if i=idyes then
        ...
      else if i=idno then
        ...
      else if i=idcancel then
        ...
    end;
      

  9.   

    messagedlg('你是否确定删除了?',Mtinformation,[mbyes,mbno],0);
      

  10.   

    if Application.MessageBox('你确认要.........吗?','请确认',MB_YesNo+MB_IconQuestion)=IDYes then
      begin
        //
      end
    else
      begin
      end;