Budgetplaner v1.0

[be-2801]

Zitat von Aike:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key='1') or (key='2') {...} then showmessage('Zahl wurde eingegeben')
  else showmessage('Keine Zahl eingegeben');
end;

Wenn man die ShowMessage weglässt und stattdessen die Eingabe gleich verbietet funktioniert es nicht (hab ich auch schon öfters hier gesehen und geht nicht).

Zitat von leddl:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if (not key in ['0'..'9',',',#8]) or
  (key = ',' and pos(key, Edit1.text) > 0) then
    key := #0;

  if (key = ',') and (length(Edit1.Text) = 0) then
    Edit1.Text := '0';
end;

Operator ist auf diesen Operatortyp nicht anwendbar.
Funktioniert genauso wenig

Hab die 2 Varianten und noch mehr schon ausprobiert und keine funktioniert

Gruß
Benni