Tastatureingabe sperren

[Astner Klaus]

Hallo zusammen,

ist es irgendwie möglich die Tastatureingabe abzuschalten. Ich habe nämlcih das Problem, dass eine SubRoutine ein Application.Processmessages aufrufen muss, und diese Routine einige Zeit dauert. Wärend dieser Zeit sollten keine Tastatureingaben möglich sein, ausser in einem anderen Programm.

mfg

Astner Klaus

[Bernhard Geyer]

Wie wäre es damit das aktive Formular du disablen (Enabled := False)

[Falk Haehle]

Dafür kannst Du Application.OnMessage benutzen (Beispiel siehe Hilfe), dort behandelst Du alle Messages, die Du ignorieren willst, ggf. sogar mit nem Benutzerhinweis.

if (Msg.message = WM_KeyDown) or
(Msg.message = WM_Char) or
(Msg.message = WM_KeyUp) then
begin
Handled := True;
end;

Bitte am Ende nicht vergessen Application.OnMessage := nil aufzurufen, oder den Algorithmus abzuändern, damit dann wieder Tasteneingaben möglich sind