Tastatur sperren wen...

[City Light]

Hallo Neo

das habe ich gefunden ,lag im mein SAM MANAGER *gg*

Delphi-Quellcode:

{Tastatur und Mauseingaben in der eigenen Applikation ignorieren?}

  private 
    procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean); 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
   
var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

var 
  FConnected: Boolean; 

procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean); 
begin 
  if FConnected then 
    case Msg.Message of 
      WM_KEYFIRST..WM_KEYLAST,     // Keyboard events 
      WM_MOUSEFIRST..WM_MOUSELAST: // Mouse events 
        Handled := True 
    end; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Application.OnMessage := AppOnMessage; 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  Application.OnMessage := nil; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  FConnected := True; 
end;