Окно без фокуса

[lister]

Есть задача отобразить информационное окно, которое не отбирало бы фокус у других окон.

Подскажите, пожалуйста, как это можно реализовать.

[ACiD]

Попробуй так:

Код: Выделить всё

Private Declare Function SetActiveWindow _
Lib "user32.dll" (ByVal hwnd As Long) As Long
Dim retval As Long
Private Sub Form_Click()
Form2.Show
retval = SetActiveWindow(Form1.hwnd)
End Sub


[lister]

Нет, это не то...

Я наверное неверно выразился. Окно должно появляться в неактивном состоянии и не перехватывать фокус у других открытых окон.

Одним словом, мне нужно окно, похожее на окно плавающей подсказки.

[ANDLL]

ShowWindow(me.hwnd, SW_SHOWNOACTIVATE)