[Delphi] dynamiczne komponenty - problem

Witam,
Mam problem z odwołaniem się do komponentów stworzonych dynamicznie. Sprawa wygląda następująco:
Forma zawiera element TPageControl na którym umieszczam dynamicznie nowe komponenty, np:
TabSheet1->Edit1, ListBox1
TabSheet2->Edit2, ListBox2 itd.

W deklaracji klasy umieściłem zmienne odpowiednie do zawartości jednego arkusza czyli: FTabSheet, FEdit, FLabel. Podczas uaktywniania odpowiedniego arkusza przypisuje im aktualną wartość klas z arkusza:

procedure TForm11.PageControl1Change(Sender: TObject); begin FTabSheet:=PageControl1.Pages[PageControl1.ActivePageIndex]; FListBox:= TListBox(FTabSheet.FindComponent('ListBox'+IntToStr(PageControl1.ActivePageIndex))); FEdit:= TEdit(TabSheet.FindComponent('Edit'+IntToStr(PageControl1.ActivePageIndex))); end;

Podczas dowoływania się do tych zmiennych w innych funkcjach i procedurach wyskakuje błąd access violation.
Z góry dziekuje za pomoc.
Pozdrawiam,
S
Użytkownik stan24 edytował ten post 12 maj 2007, 10:38

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl