Просто Проги

Это я делал но если форма не видна то работать не будет, а мне нужно что бы при скрытой форме данное событие происходило, т.е если я скрыл проирователь но моу переключать песни через свою клавишу к примеру 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' ;