Taschenrechner mit Grundrechenarten

[Ultimator]

Du kannst im OnKeyDown des Edits mit

Delphi-Quellcode:

begin
if chr(Key=',') then
  begin
   if (Key in Edit3.Text) then
    Key:=#0;
   end;
end;

Ungetestet.