将:
'是否接收此故障单?'
改为:
'不接收此故障单吗?'
OK!
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
'是否接收此故障单?'
改为:
'不接收此故障单吗?'
OK!
—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样,删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
if Application.MessageBox('接收此故障单吗?','提示',MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2)=IDCANCEL then
mtConfirmation, [mbYes, mbNo], 0) = mrNo then