首页
后端开发
Delphi
Delphi编程实现聊天工具

Delphi编程实现聊天工具

48 次浏览 0 条评论
rar
rar 
procedure TForm2.BitBtn1Click(Sender: TObject);
var
  retVal: integer;
begin
  retVal := mrNo;
  if (Edit1.Text = 'a') and (Edit2.Text = 'b') then
  begin
    retVal := mrYes;
  end;
  modalresult := retVal;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
  mm := 1;
  application.Terminate;
end;
rar 文件大小：345.21KB