Просто Проги

пусто ошибок нет но и нечего не выводит вообще не понимаю чего не так вот полный код unit

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.ListView.Types, FMX.ListView.Appearances, FMX.ListView.Adapters.Base,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.ListView, System.Rtti,
  System.Bindings.Outputs, Data.Bind.EngExt, Fmx.Bind.DBEngExt, FMX.Layouts,
  FMX.ListBox, Data.Bind.Components, FMX.Objects;

type
  TForm1 = class(TForm)
    Button1: TButton;
    BindingsList1: TBindingsList;
    ListBox1: TListBox;
    Image1: TImage;
    Image2: TImage;
    StyleBook1: TStyleBook;
    SpeedButton1: TSpeedButton;
    Button2: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var
listitem:Tlistboxitem;
listimg1,listimg2:Timage;
listlabel1,listlabel2,listlabel3:Tlabel;
listLayout:Tlayout;
progres:TProgressBar;
but:TSpeedButton;
i:integer;
implementation

{$R *.fmx}

procedure TForm1.Button2Click(Sender: TObject);
var
lbItemSel: TListBoxItem;
var n: Integer;
i:integer;
begin
//Form1.Caption:=ListBox1.ItemIndex.ToString;
//ListBox1.ItemIndex:=ListBox2.ItemIndex;
//  lbItemSel := ListBox1. Selected ;
//  if  ( lbItemSel is TListBoxItem )  then
//  begin

//   Form1.Caption := TListBoxItem.sty
//     listitem ( lbItemSel ).but.caption ;
//     Button2Click(self);

//form1.Caption:=ListBox1.ItemIndex.ToString();
 if (ListBox1.Selected.FindComponent('listlabel1') is Tlabel) then
Form1.Caption:=    (ListBox1.Selected.FindComponent('listlabel1') as Tlabel).Text;
 end;
end;

procedure TForm1.FormActivate(Sender: TObject);

begin

  ListBox1.BeginUpdate;
for I := 0 to 100 do begin

 listitem:=TListBoxItem.Create(ListBox1);

  listitem.Parent:=ListBox1;
  listitem.Height:=80;
  listimg1:=TImage.Create(listitem);
  listimg1.Parent:=listitem;
  listimg1.Width:=50;
  listimg1.Height:=50;
  listimg1.Align:=TAlignLayout.Left;
  listimg1.Bitmap:=Image1.Bitmap;
  listimg1.Margins.Left:=5;
  listimg1.Margins.Top:=5;
  listimg1.Margins.Bottom:=5;
  //
    listimg2:=TImage.Create(listitem);
    listimg2.Parent:=listitem;
    listimg2.Width:=50;
    listimg2.Height:=50;
    listimg2.Align:=TAlignLayout.Right;
 //   progres:=TProgressBar.Create(listitem);
//    progres.Parent:=listitem;
//    progres.Width:=500;
 //   progres.Height:=25;
//    progres.Align:=TAlignLayout.Center;
//    progres.Value:=10;
    //
    but:=TSpeedButton.Create(listitem);
    but.Parent:=listitem;
    but.StyleLookup:='pausebutton';
    but.Width:=50;
    but.Height:=50;
    but.Margins.Right:=10;
    but.Align:=TAlignLayout.Right;
    but.OnClick := Button2Click;

      listLayout:=TLayout.Create(listitem);
      listLayout.Parent:=listitem;
      listLayout.Align:=TAlignLayout.Client;

       listlabel1:=TLabel.Create(listLayout);
       listlabel1.Parent:=listLayout;
       listlabel1.Align:=TAlignLayout.Top;
       listlabel1.Height:=25;
       listlabel1.StyledSettings:=[TStyledSetting.Family,TStyledSetting.Style];
       listlabel1.TextSettings.Font.Size:=12;
       listlabel1.TextSettings.FontColor:=TAlphaColorRec.White;
       listlabel1.Text:=IntToStr(Random(100));

       listlabel2:=TLabel.Create(listLayout);
       listlabel2.Parent:=listLayout;
       listlabel2.Align:=TAlignLayout.Top;
       listlabel2.Height:=25;
       listlabel2.StyledSettings:=[TStyledSetting.Family,TStyledSetting.Style];
       listlabel2.TextSettings.Font.Size:=10;
       listlabel2.TextSettings.FontColor:=TAlphaColorRec.Gray;
       listlabel2.Text:='00:00';

       listlabel3:=TLabel.Create(listLayout);
       listlabel3.Parent:=listLayout;
       listlabel3.Align:=TAlignLayout.Top;
       listlabel3.Height:=25;
       listlabel3.StyledSettings:=[TStyledSetting.Family,TStyledSetting.Style];
       listlabel3.TextSettings.Font.Size:=15;
       listlabel3.TextSettings.FontColor:=TAlphaColorRec.Gray;
       listlabel3.Text:='00:00';
     //  listlabel2.Visible:=false;

      ListBox1.EndUpdate;

end;
end;

end.

О как а нет примера как им пользоваться, я пишу ListBox1.Selected.FindComponent('listlabel2.text');

Но получаю ошибки ( пробовал читать про это свойство но так и не понял как это должно работать (

Собственно вопрос всё ещё копаю в сторону listbox сделал такой listbox

  var
listitem:Tlistboxitem;
listimg1:Timage;
listlabel1:Tlabel;
listLayout:Tlayout;
progres:TProgressBar;
but:TSpeedButton;

begin

listitem:=TListBoxItem.Create(ListBox1);

 listitem.Parent:=ListBox1;
 listitem.Height:=50;
  listimg1:=TImage.Create(listitem);
  listimg1.Parent:=listitem;
  listimg1.Width:=50;
  listimg1.Height:=50;
  listimg1.Align:=TAlignLayout.Left;
  listimg1.Bitmap:=Image1.Bitmap;
  //
    but:=TSpeedButton.Create(listitem);
    but.Parent:=listitem;
    but.StyleLookup:='myControl';
    but.Align:=TAlignLayout.Right;

      listLayout:=TLayout.Create(listitem);
      listLayout.Parent:=listitem;
      listLayout.Align:=TAlignLayout.Client;

       listlabel1:=TLabel.Create(listLayout);
       listlabel1.Parent:=listLayout;
       listlabel1.Align:=TAlignLayout.Top;
       listlabel1.Height:=25;
       listlabel1.StyledSettings:=[TStyledSetting.Family,TStyledSetting.Style];
       listlabel1.TextSettings.Font.Size:=12;
       listlabel1.TextSettings.FontColor:=TAlphaColorRec.White;
       listlabel1.Text:='event';
      end;
  finally
      ListBox1.EndUpdate;

как получить доступ к кнопке в созданном listbox ? или хотя бы  как получить текст в  listlabel1 в выбранном item.

поидее должно работать item.selected но что то опять не работает или я туплю)

Спасибо))

не этот способ не работает это для vcl а у меня firemonkey

Как перемешать форму если стиль установлен BSnone ?

перешел на 5 версию там таких ошибок нет)

собственно поставил я 10 версию) но проблема не исчезла))

var
item: TMetropolisUIListBoxItem;
i:integer;
begin
for I := 0 to 100 do   begin

item :=TMetropolisUIListBoxItem.Create(ListBox1);

item.Title:='Title';
item.SubTitle:='sub';
//item.Description:=dua;
//ListBox1.AddObject(item);
item.Parent := ListBox1;
end;
end;

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

procedure TObject.FreeInstance;
begin
  CleanupInstance;
  _FreeMem(Pointer(Self));
end;

чего ей надо??)

да походу надо обновляться, но жалко уже почти прога готова) 

Верхний код спокойно работает в delphiXE5 только что проверил в delphi Xe8  invalid pointer operation( чего они нового такого придумали ?

Не разницы не какой я так пробывал

Привет всем может кто подскажет что не так создаю процедуру для добавления

var

 item: TMetropolisUIListBoxItem;

begin

item :=TMetropolisUIListBoxItem.Create(Form1);

item.Title:='Title';
item.SubTitle:='sub';
item.Description:=dua;
ListBox1.AddObject(item);

end;

Всё добавляется,но когда я пытаюсь закрыть программу то падает ошибка

procedure TObject.FreeInstance;
begin
  CleanupInstance;
_FreeMem(Pointer(Self));// на этой строке ошибка
end;

Как я понял что ошибка связана с памятью как можно правильно освободить память? и избавиться от этой ошибки )