Ллирик

Мне бы хотелось в VCL использовать компонент TLayout. Как его подключить через install component? Я никогда раньше не подключал компоненты, поэтому хотелось бы подробную инструкцию)

Спасибо. Наоборот надо отключить все libnative-activity.co, но я вроде уже отключал...

При сборке Application Store эмулятор Nox выдаёт

Цитата

application does not support this device

, а при сборке Development приложение работает нормально. Так и должно быть или......?

Подскажите, пожалуйста, как сделать эффект нажатия кнопки? Пробовал поиграться с TFloatAnimation.Property.Scale, но уменьшение масштаба идёт не к центру, а к левому верхнему углу и никакие выравнивания по центру не помогают. То есть какую анимацию из TAnimatiom надо применить к Buttonstyle в StyleBook, чтобы получить эффект уменьшения изображения к центру?

Сделал 4 анимации TFloatAnimation. Две на Padding и по одной на ширину и высоту, но анимация почему-то срабатывает с задержкой, хотя delay и duration поставлены на 0

Так Generics.Collections у меня тоже подключен, только всё-равно выдаёт

Цитата

[DCC Error] MessageModal.pas(29): E2003 Undeclared identifier: 'TObjectList'

Если Вы имеете ввиду Generics.Collections, то там в rad studio 10 seattle почему-то нет TObjectList

Работаю с TObjectList. Для винды компилируется без проблем, а для андроида выдаёт

Цитата

[DCC Fatal Error] MessageModal.pas(7): F2613 Unit 'System.Contnrs' not found.

Почему?

Проблему решил создав диалог не на классе TForm,  а на классе TPanel.

1 час назад, krapotkin сказал:

в том, что на билдере выполнение процедуры останавливается в ShowMessage

код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label1->Text = L"До";
   ShowMessage(L"Привет");
   Label1->Text = L"После";
}

 

Да, действительно код не останавливается. Но четыре месяца назад я писал приложение в билдере, в котором при вызове ShowMessage выполнение кода останавливалось и мой друг может это подтвердить)  В общем чудеса какие-то.....)

1 час назад, krapotkin сказал:

по поводу алгоритма закрытия формы через N секунд

нужно вызвать из таймера диалог с сообщением. (лучше взять у ZuBy уже предложенную библиотеку MyDialogs. я начинал ее делать именно из-за того, что стандартные диалоги не вывозят)

а на закрытие диалога повесить form.Release

тогда все будет как вы хотите

сначала выйдет сообщение. Потом закроется форма

Так мне не нужно, чтобы форма сама закрывалась

1 час назад, Kitty сказал:

В этой теме:

http://fire-monkey.ru/topic/3760-there-is-no-overloaded-version-of-messagedialog-that-can-be-called-with-these-arguments/#comment-23646

я хотела ответить автору кодом из С++ Builder и скриншотами, что он не прав. Но жаль, что тему закрыли.

И в чём же я был не прав, Сударыня?

4 часа назад, krapotkin сказал:

что вообще происходит?

вам нужно вызвать диалог через 10 секунд?

Так это просто пример) В моем приложении таймер устанавливается на 30 секунд и срабатывает отдельно от других диалогов, если пользователь не успел правильно ответить на вопрос

17 часов назад, Равиль Зарипов (ZuBy) сказал:

посмотрите вот этот пример

Если в Вашем примере добавить вызов TMyMsgDlg.Create по таймеру, например так

procedure TFormMain.Button3Click(Sender: TObject);
var
  mY: TMyMsgDlg;
begin
  mY := TMyMsgDlg.Create('Вывести сообщение по закрытию окна?', self,
    procedure
    begin
      ShowMessage('Сообщение по закрытию окна');
    end, false);
  mY.ShowMe;
  timerr := 10;
  Timer1.Enabled := true;
end;

procedure TFormMain.Timer1Timer(Sender: TObject);
var
  mY: TMyMsgDlg;
begin
Timerr := Timerr -1;
if Timerr = 0 then begin
Timer1.Enabled := false;
  mY := TMyMsgDlg.Create('Таймер сработал!!!! Вывести сообщение по закрытию окна?', self,
    procedure
    begin
      ShowMessage('Сообщение по закрытию окна');
    end, false);
  mY.ShowMe;
  end;
end;

, то на андроиде будет точно такой же глюк, как у меня, то есть если на экране сообщение 'Вывести сообщение по закрытию окна?', то сообщение 'Таймер сработал!!!! Вывести сообщение по закрытию окна?' на экране не появится

5 часов назад, krapotkin сказал:

все там показывается

сколько ни создай окон

они так друг на друге и сидят

Глюк появляется, когда у модальной формы включён Transparency

50 минут назад, chaplin.u@gmail.com сказал:

Я имею ввиду 

Buttton

как говорит Леонид Якубович : в этом слове есть 3 такие буквы значит вам полагается шкатулочка...

Если тут была бы ошибка, то компилятор просто бы не скомпилировал программу) Так что тут никакой ошибки нет))

8 минут назад, chaplin.u@gmail.com сказал:

может проблема в этом : 

locMessageForm.Buttton.ModalResult := mrOk;

А как я тогда узнаю, что произошло нажатие кнопки ОК? В винде всё работает, проблема только на андроиде

9 часов назад, krapotkin сказал:

не нужно ничего закрывать из модального окна. и в других ОС тоже.

его нужно использовать как и везде для диалога с юзером.

просто та часть, где идет проверка и реакция на ввод, сейчас живет в отдельной процедуре

соответственно if Result = mrOk then Application.Terminate;

procedure ExitQwery(MainSelf: TForm);

 

Не понял, а я как тогда сделал? Чем Ваш код отличается от моего? И у меня главный вопрос всё таки второй. Он вообще никак не связан с первым

Вопрос 1. Как закрыть приложение из модального окна на андроиде? Делаю так:

procedure ExitQwery(MainSelf: TForm);
var
  FormExitQwery: TFormExitQwery;
begin
  Application.CreateForm(TFormExitQwery, FormExitQwery);
  FormExitQwery.BringToFront;
  FormExitQwery.StyleBook := MainSelf.StyleBook;
  FormExitQwery.Label1.Width := 1;
  FormExitQwery.ShowModal(
    procedure(Result: TModalResult)
    begin
      if Result = mrOk then
      begin
              FormExitQwery.Free;
              MainSelf.Close;
              MainSelf.Free;
 Application.Terminate;
       end
      else if Result = mrCancel then
      begin
        FormExitQwery.CloseModal;
        FormExitQwery.Free;
      end;

    end);
end;

procedure TFormExitQwery.Close(Sender: TObject; var Action: TCloseAction);
begin
  Action := TCloseAction.caFree;
end;

end.

, но приложение не закрывается.

Вопрос 2. По нажатию на TImage и по таймеру создаются два модальных окна

procedure ShowMessageModal(Self: TForm; const AMessage: string;
  ADefProc: TProc);
var
  locMessageForm: TMessageForm;
begin
  Application.CreateForm(TMessageForm, locMessageForm);
  locMessageForm.BringToFront;
  // locMessageForm.ModalResult := mrOk;
  locMessageForm.CurWidth := false;
  locMessageForm.SelfWidth := Self.Width;
  locMessageForm.StyleBook := Self.StyleBook;
//  locMessageForm.Parent := Self;
  locMessageForm.MessText.BeginUpdate;
  locMessageForm.MessText.Text := AMessage;
  locMessageForm.MessText.EndUpdate;
  locMessageForm.ButtonHeight := Round(locMessageForm.Buttton.Height);
  locMessageForm.ButtonWidth := Round(locMessageForm.Buttton.Width) + 24;
  locMessageForm.MessText.Width := 1;
  locMessageForm.Buttton.ModalResult := mrOk;
  locMessageForm.showModal(
    procedure(Result: TModalResult)
    begin
      if Result = mrOk then
      begin
        ADefProc();
        locMessageForm.CloseModal;
      end;
    end);
end;

end.

Если на экране смартфона уже есть окно от нажатия на TImage, то окно по таймеру уже не показывается. Как быть?

В 03.02.2017 в 20:08, krapotkin сказал:

берем форму и вызываем ее модально. все почти так же как и раньше
 

f:=TForm2.Create(NIL);
f.showModal(procedure (Result:TModalResult) begin
if result = mrOk then begin 
end;
end);

не забыть на кнопки OK Cancel у TForm2 установить свойства ModalResult

Выполнение кода всё равно не останавливается

Я имею ввиду, что в билдере у showMessage  реализация другая. Вот я и хочу понять в чём отличие реализаций этой функции

1 час назад, krapotkin сказал:

в андроиде ничего не останавливается

Как? А вызов showMessage  в билдере тогда что делает?

В C++ builder при вызове showMessage  выполнение кода останавливается, а в делфи нет, но в C++ builder есть другой глюк, поэтому написал всё на делфи. Теперь только осталось решить проблему остановки выполнение кода при вызове showMessage 

А если сделать так:

if MessageDlg(AMessage, TMsgDlgType.mtCustom, [TMsgDlgBtn.mbOK], 0) = mrOK then

, то  на андроиде получаю "blocking dialogs not implemented on this platform", но в билдере диалоговые окна модальны и работают нормально. Почему?

Так у меня нет второй формы. Я создаю сообщения по средствам ShowMessage. Их более 500

Разобрался, но создать модальное окно на андроиде мне  в делфи rad studio 10 seattle так пока и не удалось. И я так и не понимаю почему в C++ builder диалоговые окна получаются модальными, а в делфи нет?

Пытаюсь создать модальное окно вот так:

procedure ShowMessageModal(const AMessage: string);
var
  ACloseDialogEvent: TInputCloseDialogEvent;
  DialogSvc: IFMXDialogService;
begin
  DialogSvc.MessageDialog(Translate(AMessage), TMsgDlgType.mtCustom,
    [TMsgDlgBtn.mbOK], TMsgDlgBtn.mbOK, -1, -1, nil, nil,
    procedure(const AResult: TModalresult)
    begin
      if Assigned(ACloseDialogEvent) then
        ACloseDialogEvent(DialogSvc.MessageDialog, AResult);
    end);
end;

но выдаёт

Цитата

[dcc32 Error] MessageModal.pas(27): E2250 There is no overloaded version of 'MessageDialog' that can be called with these arguments

Пожалуйста, подскажите как решить проблему