Hallo,
| bis11 hat folgendes geschrieben: |
| Kann ich das gleiche Prinzip auch anwenden um jedem Button eine andere Funktion zuzuweisen ? |
ich verstehe die Frage nicht ganz. Wie willst du jeden Button eine andere Funktion zuweisen? Das must du ja schon beim erstellen machen.
Wenn du aber Abhängig vom Button etwas anderes machen willst ist es genau das obeb beschriebene Prinziep.
Nehem wir an, du hast mehrere Button Gruppen. Gruppe 1 ist für Designfragen zuständig, Gruppe macht Berechnungen und Gruppe drei ist für Datenbankanfragen zuständig.
Alle drei Gruppen werden Dynamisch erzeugt.
Jetzt hast du 2 Möglichkeiten: Entweder du weist diesen direcht beim erzeugen unterschiedliche Behandlungsmethoden zu oder du markierst sie ihrer Gruppe ensprechend (z.B. unter zurhilfenahme der Eigenschft .Tag) und klabüserst dass dann in einer Zentralen behandlungsroutine wieder auseinander:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| procedure MyButtonClick(Sender : tObject);
VAR
Helfer : tSpeedButton;
BEGIN
IF (Sender IS tSpeedButton) THEN BEGIN
Helfer := tSpeedButton(Sender);
CASE Helfer.Tag OF
1 : DoDesignJob(Helfer);
2 : DoCalcJob(Herlfer);
3 : DoDBJob(Helfer);
ELSE
Panic;
END;
END;
END; |
Ich weiß zwar nicht ob diese Antwort deiner Frage entspricht, aber vieleicht war es das ja
.
Gruß
Klabautermann
