Einzelnen Beitrag anzeigen

bkgmjo

Registriert seit: 12. Apr 2008
6 Beiträge
 
#1

mehrere onchange ereignisse zusammenfassen

  Alt 26. Jun 2008, 19:13
hallo,
ich bastle an einer anwendung in der in zwei spalten comboboxen sind, je nach auswahl in der linken soll die rechte für die benutzereingabe aktiviert/deaktiviert werden und die passenden auswahlmöglichkeiten bekommen.

funktioniert auch soweit nur finde ich es etwas unsinnig, bei jedem onchange ereignis einer combobox dieselbe prozedur nur leicht verändert reinzuschreiben,
Beispiel:

Delphi-Quellcode:
procedure TForm1.Auswahl1Change(Sender: TObject);
begin
  if Auswahl1.Text = xxx
    begin
      Wert1.Enabled;
      Auswahl2.Enabled;
      [zweite auswahlliste je nach auswahl füllen]
    else
     ......
end;

procedure TForm1.Auswahl2Change(Sender: TObject);
begin
  if Auswahl2.Text = xxx
    begin
      Wert2.Enabled;
      Auswahl3.Enabled;
      [zweite auswahlliste je nach auswahl füllen]
    else
     ......
end;
und so weiter für jede einzelne combobox.
es ist doch sicher möglich, das ganze ein einziges mal in einer prozedur auszulagern und das dann in folgender oder ähnlicher form zu lösen:

Delphi-Quellcode:
procedure TForm1.ComboChange(nummer:byte);
begin
  if Auswahl[nummer].Text = xxx
    begin
      Wert[nummer].Enabled;
      Auswahl[nummer+1].Enabled;
      [zweite auswahlliste je nach auswahl füllen]
    else
     ......
end;
wäre für jede hilfe dankbar
  Mit Zitat antworten Zitat