Form AlwaysOnTop, что бы не брала на себя фокус.

[Memfivosfey]

Тоесть, у меня есть всплывающая форма, типа лога событий, но при всплытии или изменении (тоесть добавления в список строк) эта форма перехватывает на себя фокус, с главной. Мне необходимо, что бы она всплывала, была всегда сверху, но не брала вообще на себя фокус, а была чисто информационным окном. Помогите пож. а то я уже замучился в поисках....

[BV]

WS_EX_NOACTIVATE?

[Memfivosfey]

Я конечно извиняюсь, но я даже не представляю, что это и где его взять Если не сложно, кусок кода.

[Memfivosfey]

рылся, рылся, нашёл... но не работает

Вобщем, у меня две формы, одна главная вторая просто лог соытий.
Вторая форма расположена в правом нижнем углу экрана, прямо над системным треем. На второй есть ListBox. Когда происходят события в первой форме Form1, они как "трассировка" добавляются в Form2.ListBox, но при этом Form1 теряет фокус. Благодаря вашей BV подсказке, я так понял что стал на верный путь и нашёл такой код:

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

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

Private Declare Sub SetWindowPos Lib "User32" _
         (ByVal hWnd As Long, _
         ByVal hWndInsertAfter As Long, _
         ByVal X As Long, _
         ByVal Y As Long, _
         ByVal cx As Long, _
         ByVal cy As Long, _
         ByVal wFlags As Long)

Private Sub Form_Activate()
    'Set the window position to topmost
    SetWindowPos Me.hWnd, _
         HWND_TOPMOST, 0, 0, 0, 0, _
         SWP_NOACTIVATE Or SWP_SHOWWINDOW Or _
         SWP_NOMOVE Or SWP_NOSIZE


но он у меня почему-то не пахает когда я делаю по любому событию Form1 добавление в Form2.ListBox строки, Form1 теряет фокус. чиво не так?

вот непосредственно строка кода в моей программе, как я её записал:

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

SetWindowPos frmListMsg.Hwnd, -1, (Screen.Width - frmListMsg.Width) / 15, ((tmpRect.Top * 15) - frmListMsg.Height) / 15, frmListMsg.Width / 15, frmListMsg.Height / 15, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE

[Kovu]

Memfivosfey
WS_EX_NOACTIVATE - стиль окна, изменяемый при помощи SetWindowLong. Но вот только при выставлении окно всё равно получать может фокус. Вот при выставлении WS_DISABLED окно полностью перестаёт реагировать на нажатия пользователя на него.

[Memfivosfey]

Memfivosfey
WS_EX_NOACTIVATE - стиль окна, изменяемый при помощи SetWindowLong. Но вот только при выставлении окно всё равно получать может фокус. Вот при выставлении WS_DISABLED окно полностью перестаёт реагировать на нажатия пользователя на него.

дак я же на него и ненажимаю, я только добавляю записи в ListBox находящийся в нём.

[Memfivosfey]

Да...., помоему жизнь подошла к концу.... неуж-то всё настока суръёзно...

[Kovu]

Memfivosfey
Ну дык окно кстати фокус не получает при добавлении в его листбокс новых записей). По крайней мере у меня. Выставь окну WS_DISABLED и не заморачивайся)