Hallo Jenny,
also ich würde das ganze so machen, da ihr die "Try-Sachen" noch nicht hattet:
Was jetzt in NettoChange steht, in Button1Click packen und das bisherige Button1Click entfernen. Somit wird erst auf Knopfdruck gerechnet. Das jetzige MwSt Feld ist somit überflüssig und könnte weg. Der Code würde dann so aussehen:
Delphi-Quellcode:
var
Form1: TForm1;
vnetto, vbrutto: single;
const
vmwst = 16.0;
implementation
{$R *.dfm}
procedure TForm1.nettoChange(Sender: TObject);
begin
// bitte leer machen!
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//Eingabe
vnetto := strtofloat(netto.Text);
//Verarbeitung
vbrutto := vnetto + vnetto * vmwst / 100.0;
//Ausgabe
brutto.Text := floattostr(vbrutto);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.
Somit rechnet Dir das Programm auf Knopfdruck den Brutto-Betrag mit der festen MwSt aus.
("// bitte leer machen! " nicht dahin schreiben, sondern wirklich leer machen...)
Grüsse
...Doc