Hallo,
so geht es auch:
Delphi-Quellcode:
procedure ShowControls (const aControls: array of TControl;
const aVisible: Boolean = True);
var
i : Integer;
begin
for i := 0 to High(aControls) do
aControls[i].Visible := aVisible;
end;
// Anwendung:
ShowControls ([Button4, Button5, Edit1, Edit3, Panel42]);
Handelt es sich um eine relativ kleine Anzahl von Controls, stellt sich natürlich die Frage, ob der Originalcode nicht lesbarer ist. Vielleicht lassen sich ja auch alle Elemente auf einem Panel platzieren. Dann genügt schon das Ein-/Ausblenden dieses Panels.
Gruß Hawkeye