PopupMenu ?

[Pavlo]

Подскажите пожалуйста как зделать контекстное меню т.е. при нажатие правой клавиши по форме выпригивало меню. Кинте пример. И извините за ламерский вопрос

[A.A.Z.]

Нужное меню сделай как обычно (например, в Menu Editor) и поставь Visible = False.

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

Sub Form_MouseDown(Button As Integer, Shift As Integer)
If Button = vbRightButton Then
Form1.PopupMenu <имя меню>
End If
End Sub

[Pavlo]

Thank you!!!!!

[TrueTrue]

Вопрос по теме!

Имею форму Form1
на форме FlexGridPlus, - думаю всем знаком этот компонент.
При событии FlexGridPlus.MouseDown - выпадает PopupMenu

Дак вот дело вот в чём.

Когда кликаю на грид и выпадает меню, то в Гриде, пропадает ПОДСВЕТКА КУРСОРОМ.
Подсветка курсором у меня разрешена только по Гризонтали - flexSelectionByRow.
А у меня в зависимости от значения FlexGridPlus.Row разная ситуация.
И есть необходимость, что бы юзер при выпадении меню видел, к какому FlexGridPlus.Row относятся действия описанные в выпавшем меню.

Короче, как мне оставить подсветку синим цветом курсора в Гриде, после выпадения меню?

[Хакер]

Вопросы по кривым контролам надо задавать авторам этих контролов.

Лудший способ: выкинуть контрол и использовать ListView.
Средний способ: найти какое-нибудь свойство вроде, устанавливающее, отображается ли «подсветка» при потере фокуса.

Что такое «подстветка» — непонятно.

[Debugger]

FlexGridPlus? А пробовал использовать просто FlexGrid?

[arvitaly]

Может быть есть что то типа FlexGridPlus.RePaint

[TrueTrue]

Вопросы по кривым контролам надо задавать авторам этих контролов.

Лудший способ: выкинуть контрол и использовать ListView.
Средний способ: найти какое-нибудь свойство вроде, устанавливающее, отображается ли «подсветка» при потере фокуса.

Что такое «подстветка» — непонятно.

Контрол не кривой, работает полностью на основе FlexGrid.

FlexGridPlus? А пробовал использовать просто FlexGrid?

Пробовал, но только у него отсутствует один момент, который вынуждает меня использовать именно FlexGridPlus.

Может быть есть что то типа FlexGridPlus.RePaint

Та уже пересмотрел все свойства, нет ничего похожего...

Вобщем решение нашёл, немного калично конечно,

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

grd.Row = grdClients.MouseRow
grd.Col = 0
grd.ColSel = grdClients.Cols - 1
grd.RowSel = grdClients.MouseRow

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

[Debugger]

Контрол не кривой, работает полностью на основе FlexGrid.
+
Пробовал, но только у него отсутствует один момент, который вынуждает меня использовать именно FlexGridPlus.

Значит, ты недостаточно сильно ковырял FlexGrid. Или просто чего-то не понял.
З.Ы. По стилю, компонент напоминает Delphi.