关于messagebox

Question

flag:=Application.MessageBox(pchar('确定要删除此项'+''''+bm+''''),'提示',MB_OKCANCEL);
改成这样就没有问题了

Answer 1

flag:=MessageBox(Handle,pChar('确定要删除此项'+''''+bm+''''),'提示',MB_OKCANCEL);或者:
flag:=Application.MessageBox(pChar('确定要删除项'+''''+bm+''''),'提示',MB_OKCANCEL);

Answer 2

你的flag定义什么类型，应该是TModalResult类型

Answer 3

flag:=Application.MessageBox(pChar('确定要删除项'+Pchar(bm)),'提示',MB_OKCANCEL);