Forum: Object-Pascal / Delphi-Language
Delphi
by Torwein,
10. Dez 2014
Hallo zusammen,
ich hätte hier noch eine Frage. Wie ist das gemeint "die globale Variable ExpanderArray entfernen und durch FExpanderArray ersetzen."?
Das habe ich nicht verstanden.
Forum: Object-Pascal / Delphi-Language
Delphi
by Torwein,
9. Dez 2014
Danke für die Info, ich werde das mal testen und berichte ob ich damit klar gekommen bin :wink:
Forum: Object-Pascal / Delphi-Language
Delphi
by Torwein,
9. Dez 2014
Erst einmal vielen Dank für Die Anregungen. Wie schon erwähnt bin ich absoluter Neuling was Objektorientierung angeht. Ich weis nicht wie man das
ExpanderArray.Parent := Form1.FlowLayout2;
besser abbildet :oops:. Bei den globalen Variablen bin ich am bereinigen. Ich bräuchte da aber ein paar Tipps wie man das besser abbilden kann.
Forum: Object-Pascal / Delphi-Language
Delphi
by Torwein,
9. Dez 2014
Ich habe es hinbekommen
Das Problem:
etLength(ExpanderArray,0);
for i := 1 to 6 do begin
createExpanderNeu(FlowLayout2,Text, 222, -24, 125, 300,i);
end;
Die Lösung:
etLength(ExpanderArray,0);
Forum: Object-Pascal / Delphi-Language
Delphi
by Torwein,
8. Dez 2014
Das hat nichts geändert. Ich denke das ganze hat mit der Klassendeklaration was zu tun.
TExpanderNeu = class(TExpander)
private
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure groß(Sender: TObject);
procedure klein(Sender: TObject);
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Torwein,
8. Dez 2014
Ich habe die Screenshot angehängt.
Forum: Object-Pascal / Delphi-Language
Delphi
by Torwein,
8. Dez 2014
Hallo erst einmal vielen Dank. Das Aufrufen der TExpanderNeu.klein Procedure funktioniert. Ich komme aber in der Methode nicht weiter.
procedure TExpanderNeu.klein(Sender: TObject);
begin
BeginUpdate;
StyleLookup := 'expanderstyleneu';
Width := 125;
EndUpdate;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Torwein,
8. Dez 2014
Die Funktion ist, ich erstelle beim starten des Programms eine Liste von Expander-Elementen mit einer Breite von 300. Bei Verkleinerung des Formulars soll ab einer bestimmten Breite alle Expander-Elemente auf 125 verkleinert werden und ein anderes StyleLookup zugewiesen werden. Aus diesem Grund habe ich ein ExpanderArray angelegt so dass ich über eine Schleife alle Expander-Elemente verkleinern...
Forum: Object-Pascal / Delphi-Language
Delphi
by Torwein,
8. Dez 2014
Ich möchte in FireMonkey die Eigeschaften von einem Expander ändern z.B. StyleLookup oder Width. Die Expander werden dynamisch während der Laufzeit angelegt. Ich fange leider erst gerade mit objectorientierter Programmierung an und bekomme das Ändern der Eigenschaften von diesem Objecten nicht hin. Das Anlegen und anzeigen der Objecte geht das Ändern nicht. Mein Quellcode habe ich angehängt.
...