Den selben Komponenten (fast) gleiche Prozeduren zuweisen?

[DeMoehn]

Guten Tag liebe User von Delphipraxis.

Zwecks eines Programmierprojekts muss ich mich mit Delphi 5 (ich benutze hier Delphi 7) befassen.

Nun stehe ich vor der Frage ob ich vielen einzelnen Komponenten nicht einfach durch eine kleine Anweisung eine Change-Prozedur zuweisen kann in der es eine andere Prozedur ausführt... Naja klingt ein wenig komisch. Hier ein Beispiel:

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   faecher_loeschen(ComboBox1.Text, 1);
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
   faecher_loeschen(ComboBox2.Text, 2);
end;

// ... bis 8

Das heißt ich würde es gerne praktisch in einer for Anweisung durchlaufen lassen oder Sonstigem, so dass ich einfach die 3 Stellen die effektiv anders sind:

ComboBox1Change Die Nummer der Box
ComboBox1.Text, 1 widerrum die Nummer der Box und die Nummer als Integer

durch Variablen ersetzten kann.

In Actionscript würde ich das z.B. so schreiben können

Code:

for(i = 1; i <= 8; i++) {
  ['ComboBox'+i].onChange = function() {
    faecher_loeschen(['ComboBox'+i].Text, i)
  }
}

Keine Ahnung ob wer von euch Actionscript kann (jaja, das ist altes AS ich weiß...) aber so wäre das ganze um einiges kompakter.

In Delphi stell ich mir das vielleicht irgendwie durch ein array of TCombobox vor.

Ich hoffe mir kann jemand helfen.

Vielen Dank im voraus für Hile, Tipps&Tricks oder einfach Links zu einer hilfreichen Seite.

[edit=SirThornberry]c-tags durch delphi-tags ersetzt - nächstes mal bitte richtige Tags verwenden - Mfg, SirThornberry[/edit]

[mkinzler]

Odedie Instanzen per FindComponent() finden. Aber eine Array oder eine Liste mit den referenzen ist natürlich der bessere Weg

[Apollonius]

Du kannst immer die gleiche Methode zuweisen. Die aufrufende Komponente wird dir im Parameter Sender übergeben.

[Prototypjack]

Moin,

Du kannst auch das Tag-Property verwenden um Komponenten zu kennzeichnen.

Grüße,
max

[Phoenix]

Also um das mal zusammenzufassen:

Delphi-Quellcode:

procedure TForm1.AnyComboBoxChange(Sender: TObject);
var
  box: TCombobox;
begin
   box := Sender as TComboBox;
   faecher_loeschen(box.Text, box.Tag);
end;

In das Tag der jweiligen Combobox setzt Du dann eben 1..8 ein.

Edit: Tags verhagelt...

[DeMoehn]

GERADE BEANTWORTET:
Wow, danke für die super schnellen Antworten.

Leider bin ich in Delphi überhaupt nicht bewandert und stell mir gerade die Frage wie und wo ich das dann schreiben soll.
Immerhin scheint es zu funktionieren, das ist erfreulich.

Ich habe eine Prozedur FormCreate, in der ich einige dinge auf Startwerte setzte.
Kann ich dies dort machen?
Oder mache ich das einfach irgendwo unter "implementation"?

Sorry für meine Ahnungslosigkeit.

Na dann bedanke ich mich mal für diesen Schnipsel.
Das hätte ich so nicht gewusst.

Mfg

EDIT:
Ich hab das ganze jetzt einfach am Ende eingefügt aber leider bekomme ich kein Ergebnis.
Hat jemand eine Idee?
-> Die Tags sind nummeriert jedoch erhalte ich auch keine Nachricht, wenn ich als Test showMessage(box.Tag) einbaue.

[alzaimar]

Delphi-Quellcode:

Procedure TForm1.FormCreate (Sender : TComponent);
  Procedure _SetupComboBox (aCombobox : TComboBox; aTag : Integer);
  Begin
    aComboBox.Tag := aTag;
    aComboBox.OnChange := AnyComboBoxChange;
  End;

Begin
  SetupComboBox (ComboBox1, 1);
  SetupComboBox (ComboBox2, 2);
  SetupComboBox (ComboBox3, 3);
  SetupComboBox (ComboBox4, 4);
  SetupComboBox (ComboBox5, 5);
  SetupComboBox (ComboBox6, 6);
  SetupComboBox (ComboBox7, 7);
  SetupComboBox (ComboBox8, 8);
End;

procedure TForm1.AnyComboBoxChange(Sender: TObject);
var
  box: TCombobox;
begin
   box := Sender as TComboBox;
   faecher_loeschen(box.Text, box.Tag);
end;

[DeMoehn]

Wunderbar!
Vielen Dank so funktioniert es wunderbar.
Konnte es perfekt einbauen thx an alle Beteiligten