Лидеры

такой возможности нет, по вы можете дописать r1.Margin.Bottom := <сложные арифметические действия>;

попробовать использовать жесты, sgLeft и по координатам (жеста) выдвигать свою панель поверх айтема

Просьба код оформлять в специально предназначенном для этого блоке код 1. Для чего здесь объявлены AudioMem и AudioStream, если они не используются? 2. для чего приведение типа в конструкциях (AudioRecorder as JAudioRecord) Без этого не вызываются методы? 3. Когда перестает работать таймер и что выполняется по его событию, как часто? 4. Вообще логику работы примера нельзя ли описать в комментариях над строчками кода? Пока не очень понятно, как это должно работать?

да, в базовом классе. желательно обновиться с репозитория, там точно есть такое. UPD: события на отмену нет, если вы об этом

Update 1 для Берлина вышел.

что за обработка планируется? код настолько сложный что его невозможно повторить на delphi?

в чем проблема? 1) при авторизации выдать клиенту токен 2) токен записать в базу и ограничить по времени 3) при каждом новом заходе в приложение, старый токен убивать, новый выдавать (вот вам сессия) 4) при "живой сессии" не запрашивать пин-код 5) Profit!

Обновленная версия Более реалистичные диалоги для андроид 5.0 и выше MyDialogs_ZuBy.zip

Конечно, полная свобода. Что понадобится все можно прикрутить myInput.Edits[0].ReturnKeyType := TReturnKeyType.Done; myInput.Edits[0].KillFocusByReturn := true; myInput.Edits[1].ReturnKeyType := TReturnKeyType.Done; myInput.Edits[1].KillFocusByReturn := true;

там есть вызов анонимной процедуры, в нем без танцев можно получить данные var mY: TMyInputQuery; begin mY := TMyInputQuery.Create(['Введите текст'], [''], self, procedure begin ShowMessage('TThreadProcedure ' + mY.Values[0]); end); mY.Edits[0].Password := true; mY.ShowMe;

Не бейте сильно, но только вот такое безобразие в голову пришло =) procedure TFormMain.DialogEvent(Sender: TObject); var i: integer; s: string; begin s := ''; try for i := 0 to 1000 do s := s + (Sender as TMyInputQuery).Values[i] + #13#10; finally end; ShowMessage('TNotifyEvent '#13#10 + s); end; UPD: Отупение прошло. Но класс мне, конечно, надо будет переписать. procedure TFormMain.DialogEvent(Sender: TObject); var i: integer; s: string; begin s := ''; for i := 0 to (Sender as TMyInputQuery).Edits.count - 1 do s := s + (Sender as TMyInputQuery).Values[i] + #13#10; ShowMessage('TNotifyEvent '#13#10 + s); end;

Запускайте Android Device Monitor Путь примерно такой (в зависимости от версии): C:\Users\All Users\Documents\Embarcadero\Studio\17.0\PlatformSDKs\android-sdk-windows\tools\monitor.bat