messageBox在intraweb中如何实现？

Question

messageBox在intraweb中如何实现？
intraWeb中怎么显示一个包含“确定”、“取消”的对话框？就是类似WebApplication.ShowMessage('***')然后有“确定”、“取消”的对话框？
我想在点击退货是，弹出对话框：确定和取消！
点击确定则执行往下代码，点击取消则不做操作！
大侠帮助！

Answer 1

TIWButton控件下有个属性confirmation
在那里可设置是否提示信息。

Answer 2

谢谢你，这个方法我试了的。不过就是不管你点击确定还是取消，程序都会往下执行代码啊！
请问大侠，怎样才实现我说的那样呢？
我在原先的iwButton控件里头动态生成另一个DefButton。当点击退货时，写DefButton.confirmation :='你确实要退货？';
运行测试后，的确弹出了：确定，取消的对话框效果。但你会发现程序不管你点击与否，他都已经往下执行了代码的！
小弟该怎么做？
：

Answer 3

if ( Application.MessageBox(pchar('您确定要删除线路【'+TreeView1.Selected.text+'】吗？'),'提示',MB_OKCANCEL+MB_ICONASTERISK)=idok ) then

Answer 4

没有问题的，是你什么地方弄错了吧？
type
  TIWForm1 = class(TIWAppForm)
    IWButton1: TIWButton;
    procedure IWButton1Click(Sender: TObject);
  public
    procedure alert(Sender: TObject);
  end;implementation{$R *.dfm}
procedure TIWForm1.IWButton1Click(Sender: TObject);
begin  with TIWButton.Create(self) do
    begin
     name := 'defButton';
     parent := self;
     Confirmation := 'sfsaa';
     onClick := alert;
    end;
end;procedure TIWForm1.alert(Sender: TObject);
begin
  WebApplication.ShowMessage('ss');
end;