| Autor |
Beitrag |
Cix6
  
Beiträge: 60
Windows XP
Delphi 4 Standard, Delphi 7 PE, Delphi 2005 PE
|
Verfasst: Fr 16.12.05 16:17
Hi,
ich hab z.B. 50 Buttons. Wie kann ich diese jetzt mit einer schleife am besten durchgehen um alle auf Visible := False zu setzen?
Cix6 Moderiert von  raziel: Topic aus Sonstiges verschoben am Sa 17.12.2005 um 16:07
|
|
Lake
Beiträge: 78
D6 prof., Delphi 10.2 Tokyo
|
Verfasst: Fr 16.12.05 16:27
Also ich mache das so:
  Delphi-Quelltext
1:
2:
3:
4:
5:
6:
| for i := Form1.ComponentCount - 1 downto 0 do
begin
FoundComponent := Form1.Components[i];
if FoundComponent.ClassName = 'TButton' then
(FoundComponent as TButton).visible := false;
end; |
|
|
Cix6 
Beiträge: 60
Windows XP
Delphi 4 Standard, Delphi 7 PE, Delphi 2005 PE
|
Verfasst: Fr 16.12.05 16:29
und was ist form.componentcount?
|
|
alzaimar
Beiträge: 2889
Erhaltene Danke: 13
W2000, XP
D6E, BDS2006A, DevExpress
|
Verfasst: Fr 16.12.05 16:33
Schonmal die Delphi Online-Hilfe benutzt? Cursor auf 'ComponentCount', F1 und dann nur noch lesen.
_________________ Na denn, dann. Bis dann, denn.
|
|
Cix6
Beiträge: 60
Windows XP
Delphi 4 Standard, Delphi 7 PE, Delphi 2005 PE
|
Verfasst: Fr 16.12.05 16:35
nein
und was ist FoundComponent?
Moderiert von Christian S.: Beiträge zusammengefasst
|
|
Lannes
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Fr 16.12.05 17:24
Hallo,
da war wohl FindComponent gemeint  _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
raziel
Beiträge: 2453
Arch Linux
JS (WebStorm), C#, C++/CLI, C++ (VS2013)
|
Verfasst: Fr 16.12.05 17:29
Nein, damit ist schon FoundComponent gemeint und es wird wohl vom Typ TComponent sein. Ist zwar nicht nötig, aber machts übersichtlicher.
@cix6: Ein kleines bisschen Eigeninitiave sollte schon drin sein, also einfach mal auf den entsprechenden Code gehen und F1 drücken.
_________________ JSXGraph
|
|
Hux
Beiträge: 171
|
Verfasst: Fr 16.12.05 17:34
Keine Ahnung warum aber ich fin des hier leichter:
Delphi-Quelltext
1:
2:
3:
| for i:=1 to 50 do begin
TButton(findComponent('Button'+IntToStr(i))).Visible:=false;
end; |
Der Hux
|
|
Lannes
Beiträge: 2352
Erhaltene Danke: 4
Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
|
Verfasst: Fr 16.12.05 17:44
Hallo,
| raziel hat folgendes geschrieben: | | Nein, damit ist schon FoundComponent gemeint ... |
wer lesen kann..., oh man..  _________________ MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
|
|
Lake
Beiträge: 78
D6 prof., Delphi 10.2 Tokyo
|
Verfasst: Fr 16.12.05 17:57
Hallo,
| raziel hat folgendes geschrieben: | | Nein, damit ist schon FoundComponent gemeint.... |
Richtig, ich hätte vielleicht eine andere Bezeichnung wählen sollen.
Delphi-Quelltext
1:
2:
| var:
FoundComponent : TComponent; |
| Hux hat folgendes geschrieben: | Keine Ahnung warum aber ich fin des hier leichter:
|
Ich verwende deswegen das Andere, weil es egal ist wieviele Buttons auf dem Form sind und wie diese heissen.
|
|
alzaimar
Beiträge: 2889
Erhaltene Danke: 13
W2000, XP
D6E, BDS2006A, DevExpress
|
Verfasst: Fr 16.12.05 19:04
| Lake hat folgendes geschrieben: | | Hux hat folgendes geschrieben: | Keine Ahnung warum aber ich fin des hier leichter:
|
Ich verwende deswegen das Andere, weil es egal ist wieviele Buttons auf dem Form sind und wie diese heissen. |
Eben. Man sollte die Verwendung von FindComponent unter Strafe stellen _________________ Na denn, dann. Bis dann, denn.
Zuletzt bearbeitet von alzaimar am Fr 16.12.05 20:18, insgesamt 1-mal bearbeitet
|
|
raziel
Beiträge: 2453
Arch Linux
JS (WebStorm), C#, C++/CLI, C++ (VS2013)
|
Verfasst: Fr 16.12.05 20:06
Und falls es auch mal alles sein soll, was eine Eigenschaft Visible besitzt, empfehle ich diesen meinen Beitrag aus der Delphi-Library _________________ JSXGraph
|
|
