delphi yes or no 确认/取消对话框

function YesNoMsg(Qmsg: string; QType: Integer = 0): Boolean;

var

  vHelpContext: LongInt;

begin

  Result := false;

  if QType = 0 then

    Result := (MessageDlg(Qmsg, TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], vHelpContext) = iDYES)

  else

    result := (MessageDlg(Qmsg, TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbNo, TMsgDlgBtn.mbYes], vHelpContext) = iDYES)

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

if YesNoMsg('确定要xxxx吗') then

begin

text:='点的yes';

end

else

begin

text:='点的no';

end;

end;