困扰了一天的问题??????

Question

作一个剪贴板程序(一个浮动窗体),浮在文本编辑程序上面,点击浮动窗体时,下面的
文本编辑程序失去焦点,怎么才能保证下面的编辑器不失去焦点.

Answer 1

'只好循环检测了
'在Form2中调用Form1,而Form1代码如下:
Private Sub Form_Activate()
    Dim a&
    Do While 1 = 1
        a = a + 1
        If a > 500000 Then
            Form2.Show
            a = 1
        End If
        DoEvents
    Loop
End SubPrivate Sub Form_Unload(Cancel As Integer)
    End
End Sub

Answer 2

不知道是不是指那种Form1.Show , parentForm那种类型
如果是，建议用用SetParent函数试试

Answer 3

让原程序不失去焦点不大可能，我觉得可以先用GetFocus得到原先的输入窗口的句柄，按你程序的按钮后，发送一个消息使原窗口重新获得焦点

Answer 4

Call SetWindowLong(Picture1.hWnd, GWL_EXSTYLE, WS_EX_TOPMOST Or WS_EX_TOOLWINDOW)
Call SetParent(Picture1.hWnd, 0)这种方法，Picture1是不能接收键盘输入的，但可以接受鼠标输入。

Answer 5

我现在让浮动窗体获得焦点,在返回的时候,
使用
SendMessage EditWindow, WM_SYSCOMMAND, 
    WM_PASTE, ByVal 0& 
进行粘贴,不好使.
可能是编辑窗体没获得焦点,也可能是其他的原因.
那位大虾尝试好了,告诉一声,万分感谢

Answer 6

像 junwhj(www.grid2000.com/cn) 那样做个工具窗口也许比较符合你的要求