Лидеры

Я вот так у себя сделал: procedure TFormMain.CButtonScanClick(Sender: TObject); begin If IsAppInstalled('com.google.zxing.client.android')Then TKRBarCodeScanner.Scan Else OpenURL('https://play.google.com/store/apps/details?id=com.google.zxing.client.android&hl=ru'); end; function TFormMain.IsAppInstalled(const AAppName: string): Boolean; var PackageManager: JPackageManager; begin PackageManager := SharedActivity.getPackageManager; try PackageManager.getPackageInfo(StringToJString(AAppName), TJPackageManager.JavaClass.GET_ACTIVITIES); Result := True; except on Ex: Exception do Result := False; end; end; procedure TFormMain.OpenURL(const AUrl: string); {$IFDEF ANDROID} var Uri: Jnet_Uri; OpenLinkIntent: JIntent; {$ENDIF ANDROID} begin {$IFDEF MSWINDOWS} ShellExecute(0, 'open', PChar(AUrl), nil, nil, SW_SHOWNORMAL); {$ENDIF MSWINDOWS} {$IFDEF ANDROID} Uri := StrToJURI(AUrl); OpenLinkIntent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, Uri); SharedActivity.startActivity(OpenLinkIntent); {$ENDIF ANDROID} end;

Столкнулся с такой ситуацией. 1) Заполняем TListBox; 2) Пользуемся поиском через TSearchBox; 3) Очищаем TSearchBox; 4) При попытке добавить любой новый элемент в TListBox, всегда возвращается индекс добавленного элемента "-1". Накидал пример для экспериментов, упростив до безобразия (прикрепляю). Как восстановить возможность получать индекс добавленного элемента? Project1.zip

посмотри. может что интересное найдешь ) стр. 129 Delphi Cookbook.pdf

Добрый день, друзья! Пытаюсь восстановить старый код, в котором использовался Handle у панели: FVideoWindow.put_Owner(Panel.Handle); Теперь же у панели отсутствует хендл как таковой, и я все никак не разберусь, как этот момент следует обходить. Может, у кого-нибудь есть мысли на этот счет?

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