若 Form2 是另一支獨立的 exe 檔 以下從 Form1 送一按鍵到 Form2 但似乎只能從 Form2 的 FormKeyDown 收到事件 而 Form2 上的 ActiveContrl (如 edit1) 收不到 OnKeyDown 事件 ... procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var DestHandle:HWND; begin DestHandle := FindWindow(nil, 'Form2'); BringWindowToTop(DestHandle) ; PostMessage(DestHandle,WM_KEYDOWN,Key,Key); end;

參考這篇, 也許有些幫助: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38172    --- 歡迎光臨 KTop 研究院

 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var DestHandle:HWnd;
    DestHandle2:HWnd;
begin
  DestHandle := FindWindow(nil, 'Form2');
  Memo1.Lines.Add(IntToStr(DestHandle));
  BringWindowToTop(DestHandle) ;      //使用 GetFocussedWindow 的方法 (要先取得父視窗)
  //DestHandle2:=GetFocussedWindow(DestHandle);
  //PostMessage(DestHandle2,WM_KEYDOWN,Key,Key);      //使用 GetSysFocus 的方法
  PostMessage(GetSysFocus,WM_KEYDOWN,Key,Key);
end;
//-------------------------------------------------------------------------    function TForm1.GetFocussedWindow(ParentWnd:HWnd):HWnd;
var
  OtherThreadID,Buffer : DWord;
begin
  OtherThreadID:=GetWindowThreadProcessID(ParentWnd, @Buffer);
  if AttachThreadInput(GetCurrentThreadID, OtherThreadID, true) then
  begin
    Result:=GetFocus;
    AttachThreadInput(GetCurrentThreadID, OtherThreadID, false);
  end
  else
    Result:=0;
end;
//-------------------------------------------------------------------------
function TForm1.GetSysFocus : HWnd;
Var
hOtherWin,OtherThreadID,hFocusWin : HWnd;
begin
  hOtherWin := GetForegroundWindow;
  OtherThreadID := GetWindowThreadProcessID( hOtherWin, nil);
  if AttachThreadInput( GetCurrentThreadID, OtherThreadID, true ) Then
     begin
       hFocusWin := GetFocus;
       result := GetFocus;
       AttachThreadInput( GetCurrentThreadID, OtherThreadID, False );
     end
  else
       result := getFocus;    end;