Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by miLeRiAm,
31. Okt 2008
Vielen Dank, habs allesamt mal für die codelib vorgeschlagen :)
Sehr sehr praktisch.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by miLeRiAm,
31. Okt 2008
if handleList.Count = 0 then
begin
for j := 0 to screen.FormCount-1 do
for i := 0 to screen.Forms.ComponentCount-1 do
begin
comp := screen.Forms.Components;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by miLeRiAm,
31. Okt 2008
Und so wird der Code immer schöner.
HasProperty ist zwar super, allerdings hilft mir das nicht weite.
if handleList.Count = 0 then
begin
for j := 0 to screen.FormCount-1 do
begin
for i := 0 to screen.Forms.ComponentCount-1 do
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by miLeRiAm,
31. Okt 2008
if handleList.Count = 0 then
begin
frmMain.handleList.Clear;
for j := 0 to screen.FormCount-1 do
begin
for i := 0 to screen.Forms.ComponentCount-1 do
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by miLeRiAm,
31. Okt 2008
i lol'ed in rL.
Danke, begin / end.. man. Ist noch zu früh ;)
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by miLeRiAm,
31. Okt 2008
Ja, allerdings verstehe ich das nicht.
Ich habe 3 Forms.
TfrmMain
TfrmLogin
TfrmAddEntry
in der TfrmMain wird das ganze gemacht und die for geht bis zum Index 3 (???).
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by miLeRiAm,
31. Okt 2008
Tippfehler, ist natürlich -1.
Klappen tut es leider auch mit -1 nicht.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by miLeRiAm,
31. Okt 2008
moin moin,
ja, ich habe bereits die suchfunktion genutzt und einen hinweis darauf erhalten, dass "Screen.FormCount" das sein soll, was ich benötige. Ist es aber leider offensichtlich nicht ganz.
for j := 0 to screen.FormCount-1 do
for i := 0 to screen.forms.componentcount-1 do
screen.forms.components.tag := ((j+1) * 10000) + i;
Problem: Ich habe derzeit 3 Formulare, die for...