function AskContinue(const ask: string): Boolean;
begin
Result := idYes = MessageBox(self.Handle, PChar(ask), '询问', MB_ICONINFORMATION + MB_YESNO);
end;
delphi 询问对话框
最新推荐文章于 2020-03-18 10:28:30 发布
function AskContinue(const ask: string): Boolean;
begin
Result := idYes = MessageBox(self.Handle, PChar(ask), '询问', MB_ICONINFORMATION + MB_YESNO);
end;