KeyPress, Keydown

[derseitzer]

ich würde gerne alle Tasten außer die Linke Maustaste und Buchstaben von a-z sperren. Ich möchte dabei nicht unbedingt alle Tasten einzeln aufzählen, sondern sowas wie
if (key = #30..#50) then.. programmieren.
Hat jemand so einen Code parat?
MfG

[Sherlock]

Ja, da gibts was bei den Indys. Such dort mal nach IdGlobal.IsAlpha.
Beachte aber, daß die Maustaste kein Key ist...sondern über die entsprechenden MouseBtn Events abgefragt werden muss.

Sherlock

[derseitzer]

Ich habe gerade sowas hier gefunden:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['A'..'Z', 'a'..'z', 'ä', 'ö', 'ü', 'Ä', 'Ö', 'Ü', 'ß', #8]) then key:=#0;
end;

scheint aber nicht zu funktionieren.. zumindest komme ich mit alt+Tab aus dem Programm (, was ich zum Beispiel vermeiden will, da das Programm geschlossen werden soll).

[Sherlock]

Alt+Tab ist eine Betriebssystem Funktionalität. Die kannst Du nicht mit sowas billigem abfangen. Wenn Du etwas derart restriktives brauchst, denk lieber über den Kiosk-Modus von Windows nach.

Sherlock