Servus!
Angenommen du hast 2 Editfelder (Edit1 und Edit2) auf der Form (Form1) und ein OnChange-Ereignis (ich nenne es pauschal Change). Dann sieht der Code wie folgt aus:
Delphi-Quellcode:
procedure TForm1.Change(Sender: TObject);
begin
If (Sender as TEdit).Name = 'Edit1' then
begin
//Das was passiert wenn Sender Edit1 ist, hier rein
end else
If (Sender as TEdit).Name = 'Edit2' then
begin
//Das was passiert wenn Sender Edit2 ist, hier rein
end;
end;
mfg phlux
Edit: allerdings funzt Mirage seine Variante auch