Как работать с массивом компонентов

[Kotofff]

Может тогда как s.Creator сказал через контекстное меню:

Panel[i,j].OnContextPopup := PanelContextPopup;

И сама процедура:

procedure TForm1.PanelContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
  (Sender as TPanel).Caption := 'X';
end;

[s.Creator]

научиться запускать именно с другого места

Здесь два вопроса.
Определить с какой панелью работать
посмотри

PopupMenu1.PopupComponent

а при щелчке на кнопке с какой панелью будешь работать?

а потом уже работать с панелью

if PopupMenu1.PopupComponent is Tpanel then
   (PopupMenu1.PopupComponent as Tpanel).Caption := ....

[dardreams]

if PopupMenu1.PopupComponent is Tpanel then
(PopupMenu1.PopupComponent as Tpanel).Caption := ....

Вот оно !!! то что я искал!!
Спасибо вы очередной раз меня спасли

[dardreams]

Добрый день!

Procedure Ping; 
var i,j,x:byte; 
begin 
 lbName.Items.LoadFromFile('C:\Users\DAR\AppData\Local\Temp\ping.txt'); 
//j:=0; 
 for i:=0 to lbName.Count-1 do 
 begin 
  Labels[i]:=TLabel.Create(self); 
  Labels[i].Parent:=Self; 
  Labels[i].Transparent:=true; 
  Labels[i].Tag:=1; 
  Labels[i].Top:=j; 
  if Copy(lbName.Items[i],pos('=',lbName.Items[i])+1,length(lbName.Items[i]))<>'-1' then Labels[i].Font.Color:=$0000F0F0 else Labels[i].Font.Color:=clGray; 
  Labels[i].Caption:=Copy(lbName.Items[i],1,pos('=',lbName.Items[i])-1); 
  j:=Labels[i].Height+J-5; 
 end; 
 end;

как сделать так чтобы все эти лэйблы уничтожались каждый раз в начале кода ?
Тоесть уничтожились и заново создались, потом снова уничтожились и так по циклу.

[Квэнди]

Зачем для таких задач использовать массивы когда есть списки и коллекции ?

[dardreams]

Сообщение от Квэнди

Зачем для таких задач использовать массивы когда есть списки и коллекции ?

А можно пример ?

[Квэнди]

Пример чего ? использование Tlist или Tcollection ?
тогда о каким массивах компонентов мы гвоорим ?
самым лучшим примером будет внимательное прочтение этих классов и производных от них в модуле classes

[dardreams]

Квэнди
Что то вы не в ту сторону пошли, я задал вопрос:"как сделать так чтобы все эти лэйблы уничтожались в начале кода ?"
P.S.
Если я использую именно массив значит именно так мне и нужно.

[mihali4]

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

Я хочу понять как правильно работать с Sender.
Но как сделать чтобы работал именно мой код ?
Именно в этой процедуре:
procedure TfmMain.PopupMenu1Popup(Sender: TObject);
begin
(Sender As Tpanel).Caption:='x'
end;
end.

Если я вас правильно понял, то вам нужно:

((Sender as TPopupMenu).PopupComponent as TPanel).Caption:='x';