MessageDlg('Please turn on your gps', TMsgDlgType.mtConfirmation,
[
TMsgDlgBtn.mbYes,
TMsgDlgBtn.mbNo,
TMsgDlgBtn.mbClose
], 0,
procedure(const AResult: TModalResult)
begin
case AResult of
mrYES: begin
LIntent := TJIntent.JavaClass.init(TJSettings.JavaClass.ACTION_LOCATION_SOURCE_SETTINGS);
TAndroidHelper.Context.startActivity(LIntent);
end;
mrNo:
Close;
mrClose:
Close;
mrNone:
Close;
end;
end);
這是我一直在嘗試的一些代碼片段，當用戶單擊手機上的回傳按鈕時，我不想讓用戶繼續并關閉應用程式。
uj5u.com熱心網友回復：
感謝大家的幫助。if-else 案例作業。
MessageDlg('Please turn on your gps', TMsgDlgType.mtConfirmation,
[
TMsgDlgBtn.mbYes,
TMsgDlgBtn.mbNo
], 0,
procedure(const AResult: TModalResult) begin
if AResult = mrYES then begin
LIntent := TJIntent.JavaClass.init(TJSettings.JavaClass.ACTION_LOCATION_SOURCE_SETTINGS);
TAndroidHelper.Context.startActivity(LIntent);
end
else Close;
end);
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/382520.html
標籤：德尔福 火猴 delphi-10.4-悉尼