|
ShowMessage('Infomation') application.MessageBox(Pchar('幾秒鐘后就可以點(diǎn)掉了'), Pchar('錄一段時(shí)間像'), MB_OKCANCEL + MB_DEFBUTTON2 + MB_ICONQUESTION); uses Vcl.Dialogs,Vcl.Controls MsgInfo:='是否要導(dǎo)入下面列表中的數(shù)據(jù)？'+#13#10 +'工單號(hào)：'+OrderNoATxt.Text+#13#10 +'型號(hào)：'+ModelATxt.Text+#13#10 +'物料代碼：'+PartCodeATxt.Text+#13#10 +'工單數(shù)量：'+OrderSumATxt.Text+#13#10 +'下單日期：'+XDRQATxt.Text+#13#10 ; case MessageDlg(MsgInfo, mtConfirmation, [mbYes, mbNo], 0) of mrYes: begin end; mrNo: begin Exit; end; end;
|
|
|
