[Gareth]

помогите понять каким образом можно сортировать компоненты, созданные в рантайме.
к примеру создаю 10 панелей, на панелях прогрессбар с рандомным значением.. Вся загвоздка в том, что я могу удалить панель..
12345678910, после удаление нескольких панелей массив будет 123....6..8910
То-есть массив не смещается, остаются пустые ячейки..

панели изначально прикреплены align := alTop;
как можно сортировать панели по .Top, учитывая значения в ProgressBar`e ?

Код:

var
  Form2: TForm2;
  PNL: array [1 .. 10] of TsPanel;
  PG: array [1 .. 10] of TsProgressBar;
  xTag: Integer;

implementation

{$R *.dfm}

procedure TForm2.pnl_click(Sender: TObject);
begin
  xTag := (Sender as TsPanel).Tag;
  FreeAndNil(PNL[xTag]);
end;

procedure TForm2.sSpeedButton1Click(Sender: TObject);
var
  i: Integer;
begin
  Randomize;

  for i := 1 to 10 do
  begin
    PNL[i] := TsPanel.Create(Self);
    PNL[i].Parent := sScrollBox1;
    PNL[i].Top := MaxInt;
    PNL[i].Align := alTop;
    PNL[i].Height := 50;
    PNL[i].Tag := i;
    PNL[i].OnClick := pnl_click;
    { -------------------------------- }
    PG[i] := TsProgressBar.Create(Self);
    PG[i].Parent := PNL[i];
    PG[i].Position := RandomRange(0, 100);
  end;
end;

[Gareth]

кажется щас вроде сам допёр.. но не точно_)

мне наверное нужно после удаления панели, сделать смещение массива влево.
а потом отсортировать это методом пузыря...

пойду пробовать.. отпишусь если получится\не получится

[Gareth]

о боже взорвал себе мозг...... но сделал!!!

был прав, надо было сместить массив и в цикле найти рядом стоящие панели, сравнить их progressbar.position, если а > b то поменять их местами

[lmikle]

А можно было и не извращаться так, а использовать TList или TObjectList вместо массива (там при удалении элемента "схлопывание" происходит автоматически).

[Gareth]

Сообщение от lmikle

А можно было и не извращаться так, а использовать TList или TObjectList вместо массива (там при удалении элемента "схлопывание" происходит автоматически).

Дружище, я знаю, мне советовали, но я не соображу вообще как с этим работать. Никогда не юзал TObjectList, за последние несколько дней наслышан. Ищу примеры, но они не понятные вообще))
Если найдешь время, сделай небольшой пример, что бы я мог понять, каким образом это объявлять, как создавать компоненты через TObjectList и тд.
Буду признателен!
...........
..........
нашёл статью, вроде то что нужно.. Почитаю, попробую, будет что-то не понятно, создам новую тему с вопросом.
спасибо за напутствие.