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中webbrowser（或者embeddedwebbrowser）控件打开部分网站报“invalid floating point operation”异常的解决方法

Delphi 循环 low high 用法

Delphi 使用泛型的 tarray 为动态数组排序

Delphi 创建进程时指定其父进程

Delphi提示‘error loading midas.dll’的原因及解决方案

Delphi 获取网卡物理地址之内存获取方式函数源码

Delphi stringgrid常用属性和常用操作

Delphi stringtowidestring widestringtostring

Delphi 62 进制的简单实现

Delphi jpg图片 旋转 切边 缩放

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

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