Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
27. Mai 2006
also so funktioniert es bei mir...
in nem 2.buttonclick setze ich den text...
procedure TForm1.Button2Click(Sender: TObject);
begin
if assigned(editlist) then
editlist.text:='Blah'
else
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
27. Mai 2006
ahja...
i darf aber nicht lokal sein bzw. in buttonxclick nicht auf 0 oder so gesetzt werden
zeig mal kompletten code, sonst kommen wir nicht weiter...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
27. Mai 2006
also die Statische Variante funktioniert 100% , hab ich getested...die dynamische kann ich hier nicht testen.
richtig, aber brauchst ja die 5 nur in ne 10 ändern ;)
HTH
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
27. Mai 2006
also bei funktioniert es...(da ich d3 habe, mach ich das mal als statisches array)
var
Form1: TForm1;
editlist:arrayof Tedit;
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=low(editlist) to high(editlist) do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
27. Mai 2006
das sollte es veranschaulichen...
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to controlcount -1 do
begin
if (controls is TEdit) then
TEdit(controls).Text:='blah';
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by _frank_,
27. Mai 2006
wenn du dir die referenz zu dem 3. TEdit nicht gemerkt hast, nur noch über TForm.components/controls
ist aber besser sich die referenzen zu merken (z.B. in nem array of TEdit oder in ner TList)
HTH