Tag

[himitsu]

Das läßt sich auch für 'ne ganz einfache Komponentenerkennung nutzen.


Man könnte z.B. mehrere Editfelder mit 'nem anderen Wert im Tag versehen und dann:

Delphi-Quellcode:

Edit1.Tag = 1
Edit2.Tag = 2
Edit3.Tag = 3
...

procedure TForm1.Edit1Change(Sender: TObject);
  begin
    case TEdit(Sender).Tag of
      1: ... //cool, da hat jemand was in Edit1 geändert
      2: ... //und jetzt in Edit2
      3: ... //also jetzt reicht es aber ... einfach so Edit3 zu ändern
      ...
    end;
  end;