Anonymní profil Hans33 – Programujte.com

Dobrý den, máme do školy dlouhodobu práci - naprogramovat v delphi kalkulačku.
Vše mi funguje bez problému až na vstup z klávesnice.
Edit už mám ošetřený, pouze čísla,enter a backspace.
Když program spustím a začnu mačkat číselný klávesnice tak se do editu nic nevkládá.
Jde to jedině až když do editu kliknu myší a začnu pást na klávesnici.
Prej se to dá ošetřit nějak celý naráz, ale netuším jak.

Po pár radách jsem přidal v hlavním formuláři proceduru OnShow do které jsem dal Edit1.SetFocus.
Tím pádem při spuštění prorgamu mám aktivní edit a mohu psát, ale když zmáčknu nějaký z tlačítek
+,-,*,/ tak to už nejde.

Už si vůbec nevím rady.Prosím poraďte.


Příloha:

//filtrace klaves v editu
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8,',']) then Key:=#0;
end;

//nastaveni ciselnych tlacitek 0-9 a desetinna carka
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '0' then
Edit1.Text := (sender as TButton).Caption
else
Edit1.Text := Edit1.Text + (sender as TButton).Caption;
end;