Problem gelöst
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
begin
NeueBreite:=StrToInt(Edit1.Text);
AlteBreite:=Image1.width;
AlteHoehe:=Image1.Height;
if ((CheckBox1.Checked)and (edit1.Focused) ) or
((CheckBox1.Checked) and (UpDown1.Focused)) then
begin
Edit2.Text:=IntToStr(Round( NeueBreite * AlteHoehe /AlteBreite));
end;
Warum ich
if ((CheckBox1 ... rein gemacht habe, ist schon klar
