Просто Проги

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

Если есть более простой способ подскажите как сделать горячие клавиши а то уже всю голову сломал(

Ошибок нет, но и события не выполняется пробую вызывать так: procedure TForm1.OnHotKey(var Msg: TWMHotKey); begin ShowMessage('1'); end;

то же самое ошибки и ничего не происходит uses уже был прописан до этого попробовал на чистом приложении результат тот же. ошибка такого содержания Incompatible types: 'HWND' and 'TWinWindowHandle' код.rar

Собственно сделал я программу мини проигрователь всё вроде даже работает, но нужно переключать треки когда приложение свернуто,т.е не видно пробовал реализацию через WinApi var FWnd:HWnd; RegisterHotKey(FWnd, Ord('U'), 0, Ord('U')); но почему то нечего не работает(

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

можно попробовать использовать listBox.Begin update а в конце где синхронизация потока listBox.End update.

сори перепутал версии (

ругается на несуществующий компонент из примера FMX.ListView.DynamicAppearance в модуле unit FMX.ListView; среда 10,может нужно докачать что то ?

Собственно стало интересно как же работают приложения на телефоне которые строят список и сразу появляются фото пользователей и всё это так быстро, пробовал делать это и в потоке используя следующую конструкцию s:=TMemoryStream.Create; UrlF //ссылка на фото IdHTTP2.ConnectTimeout:=20000; try IdHTTP2.Get(UrlF,s); //запрос dHTTP2.ReadTimeout:=5000; except // ShowMessage('Тут возникает Time out'); end; Image1.Bitmap.LoadFromStream(s); s.Free; но такой способ медленный ,можно ли как то ускорить такой способ ? или же это что то из области фантастики и построено на html?

всё понял)спасибо за помощь)

фигасе XSuperObject, это классно и кода меньше только не совсем понятно что в этой строке происходит xItems := xResp.O['Response'].A['Items']; xItems это типа объект весь json xResp.о это респонсе потом идет сразу a итемс а как до count достучаться ? так что ли xItems := xResp.O['Response'].A['count']; и почему o и a вообще просто первый раз с такой штуко работаю) "response": { "count": 104, "items": [

щя опробую) блин точно я же в начале делаю JS := TJSONObject.ParseJSONValue(JSAr.Items[0].ToString) as TJSONObject; а уже в цикле и вывожу её! а надо то в цикле засунуть было! всё надо спать идти)

вот исправленный код var JS : TJSONObject; JSAr : TJSONArray; s : string; i:integer; begin s := Memo2.Text; JS := TJSONObject.ParseJSONValue(s) as TJSONObject; if Assigned(JS) then begin JS := TJSONObject.ParseJSONValue(JS.GetValue('response').ToString) as TJSONObject; JSAr := TJSONObject.ParseJSONValue(JS.GetValue('items').ToString) as TJSONArray; JS := TJSONObject.ParseJSONValue(JSAr.Items[0].ToString) as TJSONObject; Form2.Memo1.Lines.Clear; for i := 0 to JSAr.Count - 1 do begin Memo2.Lines.Add('id: ' + JS.GetValue('id').Value); Memo2.Lines.Add('first_name: ' + JS.GetValue('first_name').Value); Memo2.Lines.Add('last_name: ' + JS.GetValue('last_name').Value); Memo2.Lines.Add('photo_100: ' + JS.GetValue('photo_100').Value); end; JS.Free; end; только теперь я беру из массива JSar что бы все вывести записи но один фиг их больше но все под одним значением

исправил но парсится так id: 4680345 first_name: Наталья last_name: Никитина photo_100: https://vk.com/images/deactivated_100.png id: 4680345 first_name: Наталья last_name: Никитина photo_100: https://vk.com/images/deactivated_100.png id: 4680345 first_name: Наталья last_name: Никитина photo_100: https://vk.com/images/deactivated_100.png id: 4680345 first_name: Наталья last_name: Никитина photo_100: https://vk.com/images/deactivated_100.png id: 4680345 first_name: Наталья last_name: Никитина photo_100: https://vk.com/images/deactivated_100.png id: 4680345 цикл работает но одно и тоже парсит (

Спасибо, но я пробую сделать так получаю id и другие поля но только одной записи как получить все не поидее должно же здесь быть значение стрпоки которая парсится JS := TJSONObject.ParseJSONValue(JSAr.Items[i].ToString) as TJSONObject; i -это индекс троки но почему то не выходит(( var JS : TJSONObject; JSAr : TJSONArray; s : string; i:integer; begin JS := TJSONObject.ParseJSONValue(Memo2.Text) as TJSONObject; if Assigned(JS) then begin JS := TJSONObject.ParseJSONValue(JS.GetValue('response').ToString) as TJSONObject; JSAr := TJSONObject.ParseJSONValue(JS.GetValue('items').ToString) as TJSONArray; JS := TJSONObject.ParseJSONValue(JSAr.Items[i].ToString) as TJSONObject; Form2.Memo1.Lines.Clear; for i := 0 to 10 do begin Memo2.Lines.Add('id: ' + JS.GetValue('id').Value); end; JS.Free; end;

Пытаюсь получить список друзей из вк получаю их по api записываю в memo.text ответ от get запроса,после пытаюсь получить из json поля ответ выглядит так { "response": { "count": 104, "items": [ { "id": 1308603, "first_name": "Виктория", "last_name": "Талина", "photo": "http://cs625517.vk.me/v625517603/4e79b/E9Q1WA5SSLiI.jpg", "photo_100": "http://cs625517.vk.me/v625517603/4e79a/15QwerpQbCKk.jpg", "photo_400_orig": "http://cs625517.vk.me/v625517603/4e7199/wxOJQyZhqq8.jpg", "online": 0 }, { "id": 282070, "first_name": "Никита", "last_name": "Багров", "photo": "http://cs630623.vk.me/v630623070/4b610/RXNNdJ6_Nik.jpg", "photo_100": "http://cs630623.vk.me/v630623070/4b60f/MDXpi0deY1A.jpg", "photo_400_orig": "http://cs630623.vk.me/v630623070/4b60e/ec7A3pBDJZ0.jpg", "online": 0 }, "first_name": "Имя ", Следующим кодом var JSON: TJSONObject; JSONArray: TJSONArray; i: Integer; begin JSON := TJSONObject.ParseJSONValue(Form2.Memo2.Lines.Text) as TJSONObject; сюда получается я заношу весь код Form2.Memo2.Lines.Clear; JSONArray := TJSONArray(JSON.Get('items').JsonValue); далее изу по массиву итмемов for i := 0 to JSONArray.Size - 1 do begin Form2.Memo2.Lines.Add(TJSONPair(TJSONObject(JSONArray.Get(i)).Get('first_name')).JsonValue.Value); пытаюсь добавить найденное поле end; но летят ошибка критичная (

всё понял в чем косяк спасибо всем ZuBy спасибо за код:) Сори народ если туплю тока учусь)

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

как я понимаю если я убираю Layout то форматирование теряется

если убрать Layout то label не будет отображаться

могу приложит программу может я что то не так делаю почему функция не работает ?

да но так же нечего не меняется и пустота ошибок нет

или я не так делаю?

я делал так всёравно нечего не находит listlabel1.Name:='control1' ;