在Memo1的OnKeyPress中加以下代码:if Key=VK_INSERT then 
begin
     Memo1.SetFocus;
     keybd_event( VK_MENU, MapVirtualKey( VK_MENU, 0 ), 0 , 0 );     
   Memo2.SetFocus;  
end;Memo2中也写相同代码其中keybd_event( VK_MENU, MapVirtualKey( VK_MENU, 0 ), 0 , 0 ); 
是模拟键盘。