viele componenten auf visible := false setzen?

[Pseudemys Nelsoni]

hoi, ich habe in meinem prog ziemlich viele compnenten die bei einem buttonklick disabled sein müssen...hab das jetzt gerade so:

Delphi-Quellcode:

  Edit1.Enabled := false;
  Edit2.Enabled := false;
  Edit3.Enabled := false;
  Edit4.Enabled := false;
  Edit5.Enabled := false;
  Edit6.Enabled := false;
  Edit7.Enabled := false;
  Edit8.Enabled := false;
  Edit9.Enabled := false;
  Edit10.Enabled := false;

gibt es auch eine andere möglichkeit? ausser schleifen....

[Christian Seehase]

Moin Silent,

Zitat von silent:

ausser schleifen....

da würde ich mal sagen: Nein.

Aber was hast Du gegen Schleifen?

[himitsu]

entweder:

Delphi-Quellcode:

For I := 1 to 10 do
  TEdit(FindComponent('Edit' + IntToStr(I)).Visible := False;

oder die Edit's auf ein Panel und dann:
Panel1.Visible := False; den Rahmen vom Panel kannst'e auch wegmachen, dann fällt er nicht auf

[Pseudemys Nelsoni]

Zitat:

Aber was hast Du gegen Schleifen?

eigentlich nichts, aber ich weiss nicht ob sich das z.b bei 5 anweisungen lohnt *g*

Zitat:

For I := 1 to 10 do
TEdit(FindComponent('Edit' + IntToStr(I)).Visible := False;

was berwirkt "FindComponent"?

theoretisch müsste es so:

Delphi-Quellcode:

For I := 1 to 10 do
  'Edit' + IntToStr(I).Visible := False;

auch gehen oder?

Zitat:

oder die Edit's auf ein Panel und dann:
Source:
Panel1.Visible := False;

habe ich auch schon dran gedacht, dann wird die schrift der edits aber nicht grau

danke für die antworten schonmal

[SimOr]

Da muss ich Christian recht geben, Schleifen gehören zu den praktischsten Sachendie man in einem Programm einbasteln kann!!!!!

[Christian Seehase]

Moin Silent,

was berwirkt "FindComponent"?

FindComponent sucht im Array of Components der Komponente zu der es gehört nach einer Komponente mit dem angegebenen Namen, und gibt im Erfolgsfalle einen Pointer auf das Objekt zurück

Zitat von silent:

theoretisch müsste es so:

Delphi-Quellcode:

For I := 1 to 10 do
  'Edit' + IntToStr(I).Visible := False;

auch gehen oder?

Womit ziemlich klar sein sollte, dass die Antwort auf diese Frage nein lautet.

Zitat von silent:

Zitat:

oder die Edit's auf ein Panel und dann:
Source:
Panel1.Visible := False;

habe ich auch schon dran gedacht, dann wird die schrift der edits aber nicht grau

Dann probiers doch mal mit

Panel1.Enabled := false;

[Pseudemys Nelsoni]

wieso funzt das:

Delphi-Quellcode:

  for laufVar := 1 to 4 do
  TEdit('Edit' + IntToStr(laufVar)).Enabled := false;

denn nun nicht, zugriffsfehler?

[Alexander]

Nicht getestet, aber versuch es mal so:

Delphi-Quellcode:

For laufVar := 1 to 4 do
 (FindComponent('Edit' + IntToStr(laufVar)) as TEdit).Visible := False;

[Pseudemys Nelsoni]

jo geht, hmm,, aber wozu findcomponent? muss eine gesucht werden?

[Alexander]

Findcomponent sucht in diesem Fall nach den Edits mit dem NAmen "'Edit' + IntToStr(laufVar)", besser geht es wohl nciht...