Hej, Na jutro potrzebuję kalkulator zaprogramowany w Delphi 6. Ma on być prosty - w załączniku zdjęcie. Tak ma wyglądać ;) Z góry dzięki! Daję prawie 50 punktów!

2 komponenty Edit 1 Button 4 etykiety (Label) Klikamy więc 2 razy na Button i piszemy poniższy kod: var a,b,c,d,e,f,g,h:Single; begin a:=StrToFloat(Edit1.Text); {pobranie liczby a z pola Edit1} b:=StrToFloat(Edit2.Text); {pobranie liczby b z pola Edit2} c:=a+b; {obliczenie sumy} d:=a-b; {obliczenie różnicy} e:=a*b; {obliczenie iloczynu} f:=a/b; {obliczenie ilorazu} Label4.Caption:=FloatToStrF(c, ffNumber, 32, 2); {wyświetlenie na etykiecie 4 sumy} Label6.Caption:=FloatToStrF(d, ffNumber, 32, 2); {wyświetlenie na etykiecie 6 róznicy} Label8.Caption:=FloatToStrF(e, ffNumber, 32, 2); {wyświetlenie na etykiecie 8 iloczynu} Label10.Caption:=FloatToStrF(f, ffNumber, 32, 2); {wyświetlenie na etykiecie 10 ilorazu} Teraz klikamy na Edit1, w Inspektorze Obiektów przechodzimy na zakładkę Events i klikamy dwa razy na procedurę OnKeyPress. teraz wpisujemy taki kod: begin if Key=#13 then {jeśli wciśnięty klawisz to Enter} Edit2.SetFocus; {uaktywnij pole Edit2} end; To samo robimy z polem Edit2 i w procedurze wpisujemy: begin if Key=#13 then {jeśli wciśnięty klawisz to Enter} Button1.SetFocus; {uaktywnij przycisk Button1} end;