InputBoxprocedureTForm1.Button1Click(Sender:TObject);varstr:string;beginstr:=InputBox('输入窗口标题','输入提示','默认输入内容');Label4.Capti

DelphiXEMessageDlg[3]返回判定与处理//滔Roy2022.09.30procedureTHeaderFooterForm.MDlgResult1(Sender:TObject;constAResult:TModalResult);beginifARes

DelphiXEMessageDlg[2]TMsgDlgType、TMsgDlgBtn用法示例11、TMsgDlgType //滔Roy2022.09.29MessageDlg('测试mtInformation.',TMsgDlgType.mtInformation,[TMs