function AskContinue(const ask: string): Boolean;
begin
Result := idYes = MessageBox(self.Handle, PChar(ask), '询问', MB_ICONINFORMATION + MB_YESNO);
end;
delphi 询问对话框
最新推荐文章于 2023-05-31 08:57:22 发布
function AskContinue(const ask: string): Boolean;
begin
Result := idYes = MessageBox(self.Handle, PChar(ask), '询问', MB_ICONINFORMATION + MB_YESNO);
end;