Hallo zusammen,
Das ist jetzt nicht böse gemeint, aber schreib das doch auch bitte und halte solch wichtige Informationen nicht zurück.
Du versuchst auf ein Objekt zuzugreifen, welches Du noch gar nicht erstellt hast.
Delphi-Quellcode:
procedure TForm1.FormResize(Sender: TObject);
var
test : TExpanderNeu;
begin
test := TExpanderNeu.Create(Self); //<-- Zeile hinzufügen
if y <> 99 then begin
i := 1;
y := 99;
end;
if Form1.Width < 300*2.2 then begin
test.klein(ExpanderArray[1]);
buttonzoom;
if (ProduktMeneu.Width > 200) and (i = 1) then begin
panelzoom();
Label18.Visible := false;
i := 0;
end;
end else begin
buttonzoomout;
if (ProduktMeneu.Width < 200) and (i = 0) then begin
panelzoom();
Label18.Visible := true;
i := 1;
end;
end;
test.Free //<-- Zeile hinzufügen
end;
oder
ExpanderArray[1].klein(ExpanderArray[1])