Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
10. Dez 2014
Hallo zusammen,
var
Form1: TForm1;
y, i,j,x,test: integer;
progPfad,datei2 : string;
ExpanderArray: array of TExpanderNeu;
Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
9. Dez 2014
Hallo zusammen,
zuersteinmal setzt Du "procedure createExpanderNeu()" als procedure der TForm.
type
TForm1 = class(TForm)
....
private
FExpanderArray: array of TExpanderNeu;
Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
9. Dez 2014
Hallo zusammen,
und das ist natürlich genau so tötlich:
ExpanderArray.Parent := Form1.FlowLayout2;
Wenn Du eine neue Instanz der Form anlegst, dann heisst diese nicht mehr "Form1".
Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
8. Dez 2014
Mach das einmal so:
procedure createExpanderNeu(AOwner: TFmxObject; labelText : String; posX, posY, hoehe, breite,i : integer);
begin
SetLength(ExpanderArray,Length(ExpanderArray)+1);
ExpanderArray := TExpanderNeu.Create(AOwner);
ExpanderArray.Parent := Form1.FlowLayout2;
ExpanderArray.HitTest := true;
Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
8. Dez 2014
Hallo zusammen,
Was hast Du an Deinem Quellcode jetzt verändert?
Stell das ganze Projekt am besten nochmals ein.
Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
8. Dez 2014
Hallo zusammen,
Das war schon klar.
In der FormResize kannst Du die Variable "test" wegschmeisen und per Schleife die Funktion .klein oder .gross direkt aufrufen.
Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
8. Dez 2014
Hallo zusammen,
Das habe ich mich auch gefragt.
Aber da man sieht, dass das Programm doch eher an eine Rohfassung erinnert, wollte ich nur den bestehenden Code so ändern, dass man auch sieht, warum hier der Fehler auftritt.
Die zweite Version ist definitiv besser, obwohl ich persönlich die Funktionen .Klein und .Gross ohne Sender-Parameter erstellt hätte.
Forum: Object-Pascal / Delphi-Language
Delphi
by BadenPower,
8. Dez 2014
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.
procedure TForm1.FormResize(Sender: TObject);