Einzelnen Beitrag anzeigen

Benutzerbild von cruiser
cruiser

Registriert seit: 23. Dez 2003
Ort: Königsbrück/Sachsen
455 Beiträge
 
Delphi 7 Enterprise
 
#21

Re: Edit Felder voneinander Abhängig / Umrechnung

  Alt 10. Jun 2007, 20:56
puuuh ja... hab ich nicht bedacht... ich schiess mal aus der Hüfte heraus:

mh... setz die Tags der Edits auf 1,2 und 3... die Onchange-Events setzt du auf CalcFieldsChange, nachdem du es in deinen Code eingebaut hast.

Delphi-Quellcode:
// unter TForm1 eintragen:
procedure CalcFieldsChange(Sender: TObject);

// im Implementations-Bereich
procedure TForm1.CalcFieldsChange(Sender: TObject);
begin
  case (Sender as TEdit).Tag of
    1: begin
      edit2.Text := edit1.Text; // bzw. was du jeweils machen willst
      edit3.Text := edit1.Text;
    end;
    2: begin
      edit1.Text := edit2.Text;
      edit3.Text := edit2.Text;
    end;
    3: begin
      edit1.Text := edit3.Text;
      edit2.Text := edit3.Text;
    end;
  end;
end;
  Mit Zitat antworten Zitat