Проблема с FindComponent

[Sullla]

Процедура нормально работает, но только с формы, на которой размещена. С других форм вызывается, но FindComponent компонент не находит. Компонент создается динамически. В чем причина?

procedure TfrmMain.DestroyWindowLabel(formCaption:string);
var
  pnlLabelWindow:TComponent;
  i,delIndex:integer;
begin
  for i:=1 to 10 do
  begin
    if self.FindComponent('pnlLabelWindow'+IntToStr(i))<>nil then
    begin
      pnlLabelWindow:=self.FindComponent('pnlLabelWindow'+IntToStr(i));
      if  (pnlLabelWindow <> nil) then
      begin
        if TPanel(pnlLabelWindow).Caption=formCaption then
        begin
          TPanel(pnlLabelWindow).Free;
          delIndex:=i;
        end
        else if i>delIndex then
          TPanel(pnlLabelWindow).Left:=TPanel(pnlLabelWindow).Left+(delIndex-2)*200+1;
      end;
    end
    else showMessage('pnlLabelWindow'+IntToStr(i)+' not found!');
  end;
end;

[Аватар]

self.FindComponent ищет на той форме где расположен, в данном случае frmMain
хотите на другой искать - вместо Self - указатель на другую форму
? зачем дважды проверку на <>nil

[Sullla]

Пробовал

frmMain.FindComponent('pnlLabelWind ow'+IntToStr(i))<>nil

Все равно не работает

[Аватар]

Я правильно понял - вы хотите эту процедуру использовать для поиска компонент только на frmMain, но вызывать ее с других форм? Или для поиска в т.ч. на других формах?

[Sullla]

frmMain - материнская форма, там же и находятся искомые компоненты. С других форм процедура успешно вызывается, но компоненты не находит

[Аватар]

В логике процедуры после первого обращения и удаления pnlLabelWindow1 остальные обращения всегда будут давать "'pnlLabelWindow1 not found!". Так задумано?

[Sullla]

Предварительно создаю компоненты, а Эта процедура удаляет те, которые нужно удалить, а другие при этом изменяют свое местоположение. С mainForm все работает без проблем

[Аватар]

Ну вот вы обратились первый раз:
DestroyWindowLabel('Caption1');
допустим pnlLabelWindow1.Caption='Caption1'
Эта панель удалится.

Обращаетесь второй раз с любым параметром.
для i=1 имя 'pnlLabelWindow1' сразу же не найдется, поскольку уже удалена эта панель. Что получите?

Посмотрите по-шагово

add

Обратите внимание - начальное значение delIndex перед циклом не присвоено, можете вырулить на него при сравнении. Присвойте 11 например

[Sullla]

Смотрим так

for i:=1 to 10 do
begin
if self.FindComponent('pnlLabelWindows '+IntToStr(i))<>nil then
begin
...
end
else showMessage('pnlLabelWindow'+IntToS tr(i)+' not found!');
end;

[GunSmoker]

fftopic

зачем дважды проверку на <>nil

Второй - контрольный.