Moin, Moin,
vielleicht hilft auch folgendes Beispiel: Auf der Form sind 3 Edits, Aufgabe ist einfaches Umrechnen von Euro<>Dollar. Die Berechnung erfolgt, wenn einer der Werte verändert wird - eine Eingabetaste ist nicht notwendig. Hier wird nicht das OnChange-Event, sondern das OnKeyUp verwendet. Das sollte sich doch ruck-zuck auf deine Aufgabenstellung anpassen lassen:
(Beispiel aus "Grundlagen, Profiwissen, Kochbuch")
Delphi-Quellcode:
procedure TFO~~.EditKeyUp(Sender:TObject;var Key:Word;Shift:TShiftState);
var kurs,euro,dollar : Single;
s : string;
code : Integer;
begin
Val(Form1.Edit1.Text,kurs,code); // Kurs einlesen
if code <> 0 then Exit;
Val(Form1.Edit2.Text,euro,code); // Euro einlesen
if code <> 0 then Exit;
Val(Form1.Edit3.Text,dollar,code); // Dollar einlesen
if code <> 0 then Exit;
if Sender=Edit3 then euro :=dollar * kurs // dollar verändert
else dollar:=euro / kurs; // euro oder kurs verändert
if Sender=Edit3 then begin
Str(euro:8:2,s);
Form1.Edit2.Text:=s
end
else begin
Str(dollar:8:2,s);
Form1.Edit3.Text:=s
end
end;