Hallo, Allerseits.
Ich schon wieder - mit einem neuen Problem:
Mit
Delphi-Quellcode:
procedure TFStart.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key in [48..57] then
begin
Edit2.SetFocus;
Memo11.Text := Text2;
end else
begin
Edit1.Clear;
MessageBeep(1000);
end;
end;
versuche ich, meine Anwendung dazu zu bewegen, nur Eingaben von '0' bis '9' zu akzeptieren. Bis eben dachte ich auch, das wäre mir gelungen - bis ich aus Versehen auf die Taste ganz links oben kam: ^
Erstaunlicherweise - zumindest für mich - werden die Anweisungen aus dem if-Block und nicht die aus dem else-Block ausgeführt und es kommt auch noch eine Fehlermeldung.
Wie immer bin ich dankbur für Eure Unterstützung.
gruß Jürgen
[edit=Luckie]Titel geändert. Mfg, Luckie[/edit]