|
Registriert seit: 17. Feb 2004
Ort: Coburg
1.860 Beiträge
FreePascal / Lazarus
|
Re: Taschenrechner mit Grundrechenarten
14. Okt 2004, 16:45
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.
Julian J. Pracht
|