krapotkin

нет в данном случае ОРД это отец русской демократии ))) я же написал код, что еще? if (keychar = ' ') then

блин, для цифробуквенных символов, тех, что отображаются в Edit, ответ в ord(keychar) = 32 для всех остальных - в Key а чтобы узнать нажат ли ctrl, есть shift таким образом if (keychar = ' ') and (ssCtrl in shift) then спасет ОРД.

информация для размышления asdf<пробел>fgt<F1><F2><F3>

а сейчас тут в точности написано следующее My_Procedure; Button1.Enabled := True;

что такое ?

вообще имхо плохой вариант делать анимацию через поток и sleep в данном случае я бы лучше наверное разделил анимацию на нужное кол-во ступеней и просто в таймере запускал их смысл абсолютно тот же ибо доп. поток будет работать только на Sleep, все остальное все равно происходит в главном

вот да

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

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

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

конечно от стиля в других стилях вовсе не серый в FMX панели не используются так же как в VCL. можно вместо панели использовать Rectangle если красить или Layout если прозрачный

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

не нужно ничего закрывать из модального окна. и в других ОС тоже. его нужно использовать как и везде для диалога с юзером. просто та часть, где идет проверка и реакция на ввод, сейчас живет в отдельной процедуре соответственно if Result = mrOk then Application.Terminate; procedure ExitQwery(MainSelf: TForm);

гугл android bass

или воспользоваться TThread.Queue(procedure begin ....... end);

а почему просто в потоке не сделать?

https://community.embarcadero.com/blogs/entry/creating-an-overflow-menu-on-android-463

это же мобилка. тут все просто. берешь panel или layout и ставишь в любое место экрана

гугл работа TImageList FMX Delphi выдает https://community.embarcadero.com/blogs/entry/timagelistxe8ru

почему костыль? просто нет подходящего компонента. для повторяемости можно слепить фрейм с нужными качествами

procedure TExpander.SetIsExpanded(const Value: Boolean); begin if FIsExpanded <> Value then begin if not (csLoading in ComponentState) then ApplyStyleLookup; FIsExpanded := Value; if FIsExpanded then begin FContent.Visible := FIsExpanded; if FButton <> nil then Height := FButton.Height + FContent.Height; Repaint; end else begin Repaint; FContent.Visible := FIsExpanded; if FButton <> nil then Height := FButton.Height; end; StartTriggerAnimation(Self, 'IsExpanded'); if FButton <> nil then FButton.StartTriggerAnimation(Self, 'IsExpanded'); DoExpandedChanged; end; end; вот там просто написано Height := и всё если заменить на анимацию, будет анимация

по моим наблюдениям, там не предусмотрено плавного выезда, хотя 82 рекурсивных запуска анимаций входят в комплект так что лучше вариант с панелью и коробкой а еще в чатике ярослава можно дернуть, он огласит окончательный приговор

что не удалось? где код или картинка?

не стоит. также как и не стоит фрейм вставлять на место в дизайн-тайме просто динамически создавайте его в run-time не потому что нельзя, а чтобы уберечь нервы и время )))

ну, потенциальное место проблемное есть в кодировке ms создается в ANSI а вот get происходит в некоей дефолтной скорее всего UTF-8, т.к. никаких заголовков в HttpClient вы не установили. например FHttp:=THTTPClient.Create(); FHttp.AcceptCharSet:='utf-8'; FHttp.ContentType:='application/json'; FHttp.Accept := 'application/json'; FHttp.CustomHeaders['Accept-Language']:='ru_RU';