SHOWMESSAGEBOX()的用法？

Question

if application.MessageBox('确定要删除此批发货记录？','警告!',MB_YESNO)=IDYES then
begin
dm1.main11.edit;
dm1.main11.Delete;
dm1.main.edit;
dm1.main.Delete;
end;
这样写对吗？怎么运行的结果不对？

Answer 1

MessageBox本身没有问题，是里面的语句有问题。

Answer 2

if MessageBox(PChar('确定要删除此批发货记录？'),PChar('警告!'),MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2)=IDYES then
   begin
     dm1.main11.edit;//为什么要写这句
     dm1.main11.Delete;
     dm1.main.edit;//为什么要写这句
     dm1.main.Delete;
   end;

Answer 3

if application.MessageBox(handle,'确定要删除此批发货记录？','警告!',MB_YESNO)=IDYES then
begin
  ..
end;

Answer 4

if application.MessageBox('确定要删除此批发货记录？','警告!',MB_YESNO)=IDYES then
begin
dm1.main11.Delete;
dm1.main.Delete;
end;
就可以了