频道分类

delphi TMS WEB core MessageDlg对话框 yes no

作者:admin 来源: 日期:2020/4/11 11:56:08 人气: 标签:

 
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;