Добрый вечер! Помогите чуть дописать цикл в программе. Сама программа написана, выложу ее первую заготовку. В самой программе будет находиться около 7 панелей, и в каждой панели будет еще по 20 примерно панелей. (почему панели, просто мне с ними полегче работать, так как просто нужно будет эту панель закрасить и в принципе все) и нужно чтоб на тех 7 панелях вылезало 1 контекстное меню, на остальных 140 которые будут распределены на тех 7 тоже над каждой панелькой должно появляться 2 контекстное меню. в 1 и 2 меню будет процедура закраска панели над которой сейчас курсор, вернее над которой мы нажали правую кнопку и вызвали меню. в прикреплении я выложу программу и текст, в ней 6 панелей и над каждым вылезает нужное меню(выбор меню определяется через If в коде, если например имя панели больше 1 но не больше 3 то одно меню, если равно 4 или больше то второе меню) сейчас проблема в том что если на эти панели, на любую панель добавить еще панель только внутрь любой из них то при запуске программы сразу появляется ошибка "list index out of bounds", то есть как я думаю в каком то цикле у меня там не правильно дописано. Помогите пожалуйста. Спасибо!
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
i : integer;
r : TRect;
pt: TPoint;
b : Boolean;
begin
GetCursorPos(pt);
pt := ScreenToClient(pt);
b := False;
for i:=0 to ComponentCount -1 do
if Components[i] is TPanel then
begin
r := Controls[i].BoundsRect;
if (pt.x >= r.Left) and (pt.x <= r.Right) and
(pt.y >= r.Top) and (pt.y <= r.Bottom) then
begin
// нашли контрол с такими координатами
b:=True;
// через Controls[i].Name он нам доступен
Form1.Caption := Controls[i].Name;
Label1.Caption := IntToStr(ii);
if (ii<=3) then
begin
//TPanel(Components[i]).Caption := '6';
ii:=i;
TPanel(Components[i]).PopupMenu := PopupMenu1 ;
//Form1.Panel2.PopupMenu := PopupMenu1 ;
end;
if (ii>=4) then
begin
// TPanel(Components[i]).Caption := '5';
ii:=i;
TPanel(Components[i]).PopupMenu := PopupMenu2 ;
// Form1.Panel3.PopupMenu := PopupMenu2;
// Form1.Panel4.PopupMenu := PopupMenu2;
//break;
end;
end;
end;
// если ничего небыло найдено, устанавливаем значение поумолчанию
if not b then Form1.Caption := '';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Panel1.Color := clRed;
end;
procedure TForm1.N1111Click(Sender: TObject);
begin
Label1.Caption := IntToStr(ii);
TPanel(Components[ii]).Caption := '5';
TPanel(Components[ii]).Color := clRed;
end;
procedure TForm1.N2221Click(Sender: TObject);
begin
Label1.Caption := IntToStr(ii);
TPanel(Components[ii]).Caption := '6';
TPanel(Components[ii]).Color := clGreen;
end;
end.