BlurBehind Control.
Компонент позволяет использовать размытие, по типу, которое реализовано в WIndows 10, т.е компонент позволяет "размыть" то, что находится под ним.
Пусть и увидел это непосредственно в самой студии на стартовой странице (Welcome Page), но все-таки подумал скинуть ссылку сюда.
Исходники: https://github.com/grijjy/CodeRage2019/tree/master/BlurBehind
Видео:
Да был вроде , раньше так делал
procedure THomeForm.FormShow(Sender: TObject);
var
{$IFDEF ANDROID}
Intent: JIntent;
{$ENDIF }
c:Integer;
begin
Loadsetinngs;
{$IFDEF ANDROID}
FServiceConnection1 := TLocalServiceConnection.Create;
FServiceConnection1.StartService('RecordService');
Intent := CreateIntent(SERVICE_NAME, 1, st); // запускаем историю
TAndroidHelper.Activity.startService(Intent); // // запускаем историю
Intent := CreateIntent(SERVICE_NAME, 2, st); // запускаем топ
TAndroidHelper.Activity.startService(Intent); // // запускаем топ
{$ENDIF }
end;
Запускал разные задачи в сервисе