Enabled oder Visbile-Befehle zusammenfassen

rob87 · Verfasst: Fr 07.09.07 13:13

Hallo,

ich wollt mal fragen, ob man Befehle wie Enabled, Visible, etc. zusammenfassen kann.

Bsw. Button1.Enabled := true;
Button2.Enabled := true;
Panelxy.Visible := false;

Das ich des irgendwo festleg und dann nur noch sag, führe "UmfassenderBefehl1" aus. GEht sowas??

jasocul · Verfasst: Fr 07.09.07 13:33

Ja.
Das sind alles Elemente einer Form (z.B. TForm1). Dort kannst Du eigene Methoden ("Prozeduren" und "Funktionen") definieren, wo Du diese Dinge zusammenfasst. Dann musst Du nur noch die Methode aufrufen (UmfassenderBefehl).

jaenicke · Verfasst: Fr 07.09.07 14:13

Ansonsten gibts auch noch die Möglichkeit mit FindComponent z.B. etwas mit Button1 bis Button10 zu machen:

markieren

Delphi-Quelltext

1:
2:

for i := 1 to 10 do
  TButton(FindComponent('Button' + IntToStr(i))).Enabled := False;

Falls du sowas meintest ;-)

.

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

Ist die Frage, gibtes nur 2 Möglichkeiten (also an/aus) oder mehrere??

Ansonsten wie mein Vorredner bereits sagte (Bsp: 2 Möglichkeiten)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Flip(const AWas: Boolean);
begin
  Button1.Enabled := AWas;
  Button2.Enabled := AWas;
  Panelxy.Visible := not AWas;
end;

alles in Proc auslagern und aufrufen!

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme