Parent mit FindComponent lässt Label verschwinden...

[sinumeriker]

Hallo Zusammen...

Ich habe Probleme bei der Parent Zuweisung mittels FindComponent.

Programmiere ich es "manuell" wird das Label Kennzeichnung oben mittig in den ProgressBar dargestellt.

In der Schleife mit FindComponent verschwindet es...

Kann mir einer sagen wo mein Fehler ist?

Grüße aus dem Sauerland…
Peter

Delphi-Quellcode:

  for i := 1 to 21 do begin
    with (FindComponent('Kennzeichnung' + IntToStr(i)) as TLabel)do
      begin
        Parent :=  (FindComponent('ProgressBar' + IntToStr(i)) as TProgressBar );
        Alignment := tacenter;
        Layout := tltop;
        Align := alClient;
        Font.Style := [fsBold];
        Font.Color := clblue;
        Font.Size:=20;
      end;
  end;

[jaenicke]

Das liegt an dem dämlichen with. Ich hoffe ja immer noch dass das endlich aus Delphi entfernt wird. Nimm das einfach weg, dann wird es auch funktionieren.

Auch dein Label kennt FindComponent... nur gibt es darin keine Progressbar.

[a.def]

Zitat:

Zitat von jaenicke (Beitrag 1368765)

Ich hoffe ja immer noch dass das endlich aus Delphi entfernt wird.

Du hast mir jetzt so dermaßen Angst gemacht, dass ich angefangen habe with überall aus meiner Anwendung zu verbannen :P

[himitsu]

Self.FindComponent

[jaenicke]

Zitat:

Zitat von himitsu (Beitrag 1368772)

Self.FindComponent

Workarounds um unsauberen Quelltext gibt es immer...

[haentschman]

Moin...:P

Zitat:

Das liegt an dem dämlichen with. Ich hoffe ja immer noch dass das endlich aus Delphi entfernt wird.

Halleluja...:cheer: Das in diesem Jahrhundert jemand noch WITH benutzt, obwohl alle davor warnen, ist schon erstaunlich. :stupid:

[hoika]

Hallo,
also bei Queries habe ich das immer noch drin.

with Query do
begin
end

[jaenicke]

Zitat:

Zitat von hoika (Beitrag 1368775)

with Query do
begin
end

Erinnere mich bloß nicht daran...
Dort Bugs zu finden war wie ein Sechser im Lotto bevor wir das mit viel Aufwand refactored haben...

Solche Quelltextteile ohne richtige Debugmöglichkeit (alles manuell eintippen beim Auswerten usw., raten was wozu gehört, ... :|) und dann noch mit vielen unterschiedlichen Daten ist die Hölle.

[haentschman]

Moin...:P

Zitat:

also bei Queries habe ich das immer noch drin.

...warum tust du dir freiwillig Quelltext ohne Debbugingmöglichkeit an? Das ist das NoGo Kriterium schlechthin. :?

[sko1]

Zitat:

also bei Queries habe ich das immer noch drin.

dann oute ich mich auch mal, ich ebenfalls!

Ciao
Stefan