不处理鼠标和键盘事件的窗体

Question

我想在Delphi中创建一个窗体，它不处理鼠标和键盘事件并将它们传递到窗体下面的窗口。我怎样才能做到这一点？

Answer 1

你可以使用过程中了BlockInput USER32.DLL的

你可以试试这个（谨慎！）：

procedure Bloqued(block:boolean); 
var 
    milib: THandle; 
    BlockInput : function(Block: BOOL): BOOL; stdcall; 
begin 
    milib := GetModuleHandle('USER32.DLL'); 
    if milib <> 0 then begin 
    @BlockInput := GetProcAddress(milib, 'BlockInput'); 
    if @BlockInput <> nil then begin 
     BlockInput(block); 
    end; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject) ; 
begin 
    Bloqued(true); 
    Sleep(1000); 
    Bloqued(false); 
end; 

版本不DINAMIC加载：

Function BlockInput (Block: BOOL): BOOL; stdcall; External 'USER32.DLL'; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    BlockInput(true); 
    Sleep(1000); 
    BlockInput(false); 
end;