delphi TMS WEB core MessageDlg对话框 yes no

本文整理自网络，侵删。

 
procedure TForm4.WebButton2Click(Sender: TObject);

procedure DialogProc(AValue: TModalResult);
  var
    s: string;
  begin
    if AValue = mrYes then
    begin
    WebButton2.Caption:='mbYes';
    end;

    if AValue = mrNo then
    begin
    WebButton2.Caption:='mbNo';
    end;


  end;

begin
  MessageDlg(WebEdit1.Text, mtConfirmation, [mbYes, mbNo], @DialogProc);

end;
 

相关阅读 >>

Delphi webservices传数据

Delphi xe6 android 查看电池信息

Delphi webbrowser1 execwb 复制 新建 打开

Delphi开发ie右键菜单扩展

Delphi 对非活动窗口进行屏幕截图

Delphi程序将自身可执行文件拷贝到u盘的代码

Delphi关于邮箱收信的问题

Delphi md5加密算法

Delphi 开发64位应用程序使用windows api的注意事项

Delphi完美的线程注入和卸载

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi TMS WEB core MessageDlg对话框 yes no