Objecteigenschaften während der Laufzeit ändern

[BadenPower]

Hallo zusammen,

Zitat von Torwein:

Das ist richtig.

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])