DELPHI里的input函数

Question

if mrz<>'' then messagebox('已经注销');

Answer 1

只有自己做一个了。修改InputBox的代码，把返回值改成ModalResult即可，添加一个返回参数不就行了？

Answer 2

procedure TForm1.SpeedButton10Click(Sender: TObject);
var
  iOk:boolean;
  Str:string;
begin
  Str:='默认';
  iOk:=InputQuery('Input Box', 'Prompt', str);
  if iOk   then //确定
    if str= '默认' then
    begin
     showmessage(' 已经注销');
     exit;
    end
    else
      showmessage(' 新的帐号就提示成功');end;