Witam,
piszę program w którym będzie sobie pewna zdefiniowana wcześniej forma, i będzie tworzona dynamicznie w bliżej nieokreślonych ilościach.
Nie chcę robić tablicy form bo po otwarciu i zamknięciu 100 form dalej będą zajmowały miejsce w pamięci (chyba że się mylę).
Wykombinowałem sobie że zrobię tablicę wskaźników, ale póki co (na razie bez tablicy, jeden wskaźnik) nawet tyle nie chce ruszyć.
Gdzieś tam na górze:
MagDetails:^TForm5;
i 2 procedurki:procedure TForm1.MagDblClick(Sender: TObject);
var
Form:TForm5;
begin
if(Mag.Selected=nil) then
exit;
Form:=TForm5.Create(nil);
Form.Caption:='ID' + Mag.ItemFocused.Caption;
Form.Show;
MagDetails:=@Form;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
MagDetails^.Opakowanie.Caption:='qwerty';
end;
w pierwszej procedurze wszystko działa, a w drugiej w linii `MagDetails^.Opakowanie.Caption:='qwerty';` jest błąd access violation...
Ogólnie rozumiem po co są wskaźniki tylko brakuje mi praktyki ;)