delphi中的对话框函数

Question

我想实现提示信息
信息是:  如果你删除此信息,则相应的子信息也将被删除
当选择ok后，执行删除操作

Answer 1

  if Application.MessageBox('如果你?除此信息,?相?的子信息也?被?除', '', 
      MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
    begin
        //刪除動作
    end;

Answer 2

 if  MessageBox(0, 'Test', 'Test', MB_YESNO) = IDYes then
   执行删除操作

Answer 3

if MessageDlg('如果你删除此信息,则相应的子信息也将被删除', mtinformation, [mbyes, mbno], 0) = mryes then
begin
// 删除
end;

Answer 4

if MessageBox(Handle,'如果你删除此信息,则相应的子信息也将被删除','提示',MB_OKCancel + Mb_IconQuestion) = 1 then Delete....

Answer 5

用这个messagedlg
或者可能自定义