Edit Felder voneinander Abhängig / Umrechnung

[cruiser]

Wenn du allet zusammenfassen willst:

Delphi-Quellcode:

type
  TForm1 = class(TForm)

{...}
  public
    fLastField: integer
    procedure Umrechnen;

{...}

procedure TForm1.Umrechnen;
begin
  case fLastField of
  1: begin
       // umrechnungen für Edit2
     end;
  2: begin
       // umrechnungen für Edit3
     end;
  else
    // umrechnungen für Edit1
  end;
end;


procedure TForm1.Edit1OnChange
begin
  fLastField := 0;
  Umrechnen;
end;

procedure TForm1.Edit1OnChange
begin
  fLastField := 1;
  Umrechnen;
end;

procedure TForm1.Edit1OnChange
begin
  fLastField := 2;
  Umrechnen;
end;

procedure TForm1.Button1OnClick
begin
  Umrechnen;
end;