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 中使长循环有响应

Delphi 动态添加资源文件

Delphi一个抓屏的函数

Delphi调节音量及静音

Delphi 关于注释

Delphi程序在每个windows 会话中只执行一次

Delphi2010显示选择文件夹对话框 (有新建按钮)

Delphi 启动程序隐藏主窗体

Delphi 获取计算机名和用户名

Delphi hexstrtobytes

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

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