Господа, прошу помощи начинающему программисту мобильных приложений. Дошли у меня руки впервые поиграться с Multi-Device приложениями. Создал самое примитивное приложение, проверил его под виндами и на своем андроидном телефоне. Затем решил обработать OnCloseQuery - стандартный запрос, что-то типа: "Вы уверены, что хотите покинуть программу?" И вот в результате экспериментов выяснилось следующее:
Конструкция
1.
2.
3.
4.
procedure TFmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := True
end;
работает идеально.
Конструкция
1.
2.
3.
4.
5.
6.
7.
procedure TFmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var
B : Boolean;
begin
B := True (или False);
CanClose := B
end;
тоже никаких проблем не вызывает.
Конструкция
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure TFmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var
B : Boolean;
begin
TDialogService.MessageDialog('You Want To Leave The Program?', TMsgDlgType.mtConfirmation, mbYesNo, TMsgDlgBtn.mbNo, 0, Procedure(Const AResult : TModalResult)
Begin
If AResult = mrYes Then B := True
Else B := False
End);
CanClose := B
end;
прекрасно работает под виндами, но на мобиле никакой реакции на то, какую я кнопку нажимаю в диалоговом окне - программа не закрывается. Честно говоря, я пока не понимаю, в какую сторону мне копать - в сторону областей видимости переменных?
Подскажите, пожалуйста...
Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
