OnChange zweier Felder soll die gleiche Prozedur auslösen

[MetalAddict]

Hallo,

ich würde gerne dem OnChange-Event zweier Edit-Felder die gleiche Prozedur zuweisen, und zwar (vereinfacht) soll eine Ampel grün werden, wenn der Quotient eine gerade Zahl ist, und rot wenn nicht. Die Prozedur an sich ist kein Problem, nur will ich weniger Code haben.

Gibt es etwas wie:

Code:

if Sender = Edit1,Edit2 then
   begin
   [...]

Danke für eure Antworten :)

Grüße :)

[p80286]

Warum nicht so?

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Machwasmitderampel;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  Machwasmitderampel;
end;

Gruß
K-H

[MetalAddict]

Und davor Machwasmitderampel als eine Prozedur deklarieren (falls man das so sagt)?
Das wollte ich, aber dann hats mir die Editfelder als Fehler ausgespuckt.. :/

Und wenn ich es so machen würde und jedes Mal den Befehl neu hinschreiben würde, wäre es ja noch mehr code. o0

Trotzdem danke. :)

[DeddyH]

Du brauchst in MachWasMitDerAmpel-Methode noch den Sender-Parameter, den Du einfach durchreichst. Nun schreibst Du die Methode für ein Edit und weist sie im OI allen Edits, die es betrifft, zu.

[Norbert987]

Du kannst doch zweimal das gleiche Event vergeben (Doppelklick erzeugt ein neues, ein vorhandenes kann in der DropDownliste ausgewählt werden. Und wenn beide genau das gleiche machen, brauchst du nichtmal den Sender unterscheiden.