MDI child окна - в таскбар?

[tyomitch]

Ну а &H112 - это WM_SYSCOMMAND

[ZlydenGL]

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

Private Sub TaskButtons_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim t As RECT, pt As POINTAPI
If Button = 2 Then
    GetCursorPos pt
    SendMessage Forms(TaskButtons.SelectedItem.Index).hwnd, &H112, TrackPopupMenu(GetSystemMenu(Forms(TaskButtons.SelectedItem.Index).hwnd, 0), &H100, pt.x, pt.y, 0, Forms(TaskButtons.SelectedItem.Index).hwnd, t), 65536 * pt.x + pt.y
End If
End Sub

Все равно не срабатывают пункты меню Где еще может быть корявка?

[Добавлено через 10 минут]

Тормоз... Нашел корявку (спасибо, Шаман!!!), теперь работает!

[GSerg]

Мдя? А где TPM_RETURNCMD? Почему вырезал?

[ZlydenGL]

Ну что же, похоже то, что хотел - получилось! Выкладываю результаты (сам понимаю, совсем простенький контрол - но вдруг кому потребуется)?

Контрол полагает, что в MDI окне есть дочернее окно frmMain ("Main form"), которое открыто всегда. Впрочем, если не нужно, это легко подправить

Три основные процедуры:
1. Public Sub AddTask(frm As Form)
Добавляет кнопку, к кнопке привязывает форму.

2. Public Sub RemTask(frm As Form)Соответственно с точностью до наоборот :)

3. Public Sub SelTask(frm As Form)Если форма была выбрана иным способом (через меню, щелчком по заголовку, ets), то эта процедура подсветит нужную кнопку.

Еще раз ОГРОМЕННОЕ спасибо всем тем, кто мне помогал!!!

[ZlydenGL]

Никак не могу понять принцип появления Tooltip текста. В своем случае хочу, чтобы этот самый текст всплывал в любой момент когда курсор мыши находится над одной из кнопок. А он высплывает только если:
1. Только что производилось переключение между кнопками/окнами;
2. Вызывается системное меню привязанного окна.

В остальных случаях подсказка упорно не показывается. Как ее можно принудительно призывать?

И еще один вопрос, не такой сложный. Не могу заставить щелчок правой клавишей мыши восприниматься как последовательность выбора кнопки + вызов системного меню окна.

В очередной (и похоже не в последний) раз - need help!!!

[tyomitch]

Тултипов в инете куча, например тут:
http://vbrussian.com/Examples.asp?ID=37
http://vbrussian.com/Controls.asp?ID=45
http://vbrussian.com/Controls.asp?ID=84
http://vbrussian.com/Controls.asp?ID=106

[ZlydenGL]

Если бы все было так просто! Все эти тултипы (и прочие, найденные мной) используют привязку по hWnd. А какой hWnd есть у TabStrip.Tabs(0)?

А что с поиском на форуме? Даю поиск по фразе "прав*", выдается результат всего одна тема... Абсолютно не по теме

[ZlydenGL]

Извините что поднимаю уже давно не топовую тему - но вопросы появились.

1. Так и не нашел, как прилепить тултипс к моему тулбару (на основе TabStrip компоненты) - по причине, описанной выше. Может у кого есть идеи как реализовать?

2. Щелчком правой клавишей мыши по кнопке пользователь вызывает системное меню дочернего окна. Так вот, после этого действия таскбар ВООБЩЕ перестанет реагировать на нажатия мышкой То есть активной всегда остается клавиша, при нажатии на которую вызывалось меню. Это поправимо?

Спасибо! Заранее, так сказать

Через некоторое время

Второй вопрос снят, перевесил процедуру с события MouseDown на MouseUp. Первый вопрос актуален