Форма возле кнопки :)!

[GPP]

Здравствуйте! Подскажите пожалуйста, а лучше дайте простой пример. Как мне сделать так, чтобы при нажатии на кнопку рядом с ней появлялась форма типа всплывающего меню. Как в QIP(выбор смайлов). Заранее ОГРОМНОЕ СПАСИБО!

[tyomitch]

Мда.
Сизиф был обречён вечно закатывать на гору камень.
GPP, видимо, обречён вечно писать свой удивительный чат.

[dr.MIG]

Если по теме, то установить для формы, которая появляется свойства Top и Left соответственно желаемой позиции.

[GPP]

tyomitch, МДА!!! НУ ты даешь пацан... У тебя что неприязнь какая ко мне или что? Ну писал я чат когда-то и написал... Сейчас пишу мессенджер... И что??? Лучше помог бы...! Вообще я заметил, что местные модераторы и всякие там ГУРУ любят "похахотать"... Я понимаю ВЫ там умные все... просто супер... Вы наверное и не подозреваете что некоторые ваши высказывания могут и обидеть...

[t116]

Используй API-функцию GetWindowRect чтобы узнать координаты нажимаемой кнопки, а далее делай так, как написал dr.MIG или используй функцию SetWindowPos.

[Денис]

А можно и без WinAPI!
Выкладываю пример:

[Watts[]n!]

Подробнее:

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

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Private Sub Form_Load()
    Dim cPos As POINTAPI
    GetCursorPos cPos

    Me.Top = cPos.y * 15
    Me.Left = cPos.x * 15
End Sub


Лично я так делал, все нормально работает.

[t116]

А можно и без WinAPI!

Без API напрямую можно обойтись в том случае, если окно программы имеет стиль Borders=None.

to Watts[]n!

Твой пример указывает в качестве начальных координат формы координаты курсора мыши, а человек хочет под кнопкой чтобы.

[Watts[]n!]

Что-то глючит меня
Перепутал все.

[t116]

Вот пример.

[Денис]

Без API напрямую можно обойтись в том случае, если окно программы имеет стиль Borders=None.

Обоснуй.
(неужели, если я поставлю Border<>0 - окно не будеть появляться по методу Show? LOL

[t116]

Без API напрямую можно обойтись в том случае, если окно программы имеет стиль Borders=None.

Обоснуй.
(неужели, если я поставлю Border<>0 - окно не будеть появляться по методу Show? LOL

Будет появляться, но положение относительно кнопки будет уже другое. Будет не "под кнопкой", а "на ней", как в твоем примере.

[t116]

Что-то глючит меня
Перепутал все.

Не, Watts[]n!, это меня глючит, я перепутал! Автор написал чтобы было как в QIP, а я его перепутал с мирандой. В квипе форма появляется под курсором мыши, а в миранде - под кнопкой. Так что твой пример больше подходит.

[Watts[]n!]

Ужос Как же всех глючит!

[udpn]

Если пользоваться формой, то теряется выделение с главного окна. Лучше используй PictureBox, но тогда надо позаботиться, чтобы меню не выползало за края родителя.
Или можно сделать так, как в MDI формах - одновременно выделено окно и его ребенок. Однако я не знаю как это реализовать, может кто подскажет

[Денис]

udpn а ты кип открой и посмотри - при открытии смайликов уходит фокус с окна чата

GPP не дрейфь - я тоже "вечно" пишу свой собственный тетрис.

[burik]

udpn а ты кип открой и посмотри - при открытии смайликов уходит фокус с окна чата

GPP не дрейфь - я тоже "вечно" пишу свой собственный тетрис.

Денис, у меня в IQP при открытии окошка смайлов окно сообщений фокус не теряет..

Для этого (как мне подсказали пару дней назад) надо установить стиль

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


Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_STYLE        As Long = (-16)
Const WS_CHILD         As Long = &H40000000


затем

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


retval = SetWindowLong(Form2.hWnd, GWL_STYLE, WS_CHILD)