|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
сортировка компонентов созданных в run-time
помогите понять каким образом можно сортировать компоненты, созданные в рантайме.
к примеру создаю 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; |
#2
|
|||
|
|||
кажется щас вроде сам допёр.. но не точно_)
мне наверное нужно после удаления панели, сделать смещение массива влево. а потом отсортировать это методом пузыря... пойду пробовать.. отпишусь если получится\не получится |
#3
|
|||
|
|||
о боже взорвал себе мозг...... но сделал!!!
был прав, надо было сместить массив и в цикле найти рядом стоящие панели, сравнить их progressbar.position, если а > b то поменять их местами |
Этот пользователь сказал Спасибо Gareth за это полезное сообщение: | ||
Admin (16.12.2021)
|
#4
|
|||
|
|||
А можно было и не извращаться так, а использовать TList или TObjectList вместо массива (там при удалении элемента "схлопывание" происходит автоматически).
|
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Gareth (16.12.2021)
|
#5
|
|||
|
|||
Цитата:
Дружище, я знаю, мне советовали, но я не соображу вообще как с этим работать. Никогда не юзал TObjectList, за последние несколько дней наслышан. Ищу примеры, но они не понятные вообще)) Если найдешь время, сделай небольшой пример, что бы я мог понять, каким образом это объявлять, как создавать компоненты через TObjectList и тд. Буду признателен! ........... .......... нашёл статью, вроде то что нужно.. Почитаю, попробую, будет что-то не понятно, создам новую тему с вопросом. спасибо за напутствие. Последний раз редактировалось Gareth, 17.12.2021 в 00:21. |