Код отображения фотографий

[Jockernsk]

Здравствуйте, все!

Прошу помощи о корректировки кода.
Во вложении пример. Код работает, все без проблем, но столкнулся с одной проблемой:
При выборе строки в таблице, справа открывается окошко с фотографией и становится активным => чтобы продолжить пролистовать список нужно его закрыть.
Вопрос: Как сделать, чтоб окно было на заднем фоне и не мешалось пролистыванию таблицы.

И второе: ".Caption = cell.Previous: .Show" как изменить, что бы он, к примеру, брал имя заголовка не с предедущей строки,а с пред предедущей?

Благодарствую.

[EducatedFool]

Сделайте форму немодальной - должно помочь.
Пример есть здесь: http://www.programmersforum.ru/showp...94&postcount=5

[Jockernsk]

Сообщение от EducatedFool

Сделайте форму немодальной - должно помочь.
Пример есть здесь: http://www.programmersforum.ru/showp...94&postcount=5

Это "пример" я и использовал. А вот как сделать форму немодальной - незнаю.

[alex77755]

как сделать форму немодальной

Посмотри внимательно свойства формы

[Jockernsk]

Эээээ....нее... это не то. Форма и так не модальная.
Но когда открыто окошко я все равно не могу листать таблицу стрелочками. Да он дает мне мышкой тыкать на другую ячейку. а представте когда их 200 строк и каждую мышкой ткнуть? А вот если бы окно было не активное, как бы на заднем плане, то я курсором бы пробегал по ним быстро.

[VictorM]

Как вариант, на соседнем форуме есть интересные решения подобной задачи, т.е. - информация --> фото
Выбор фото из выпадающего списка
Фото в примечаниях к ячейке

[Jockernsk]

Сообщение от VictorM

Как вариант, на соседнем форуме есть интересные решения подобной задачи, т.е. - информация --> фото
Выбор фото из выпадающего списка
Фото в примечаниях к ячейке

Это конечно все хорошо...Но все таки маленько не то. Пример который я использую очень удобный на самом деле, просто сделать бы это окошко не активным...

[Hugo121]

Получается, но немного через ж...
Сделал копию этой формы как F2:

        If Dir(PicPath) <> "" Then    ' картинка найдена
            With F
                .Picture = LoadPicture(PicPath)
                .Width = F.Picture.Width / 33: .Height = F.Picture.Height / 33
                .Top = Application.Top + 24
                .Left = Application.Width + Application.Left - .Width - 18
                .Caption = cell.Previous: .Show
            End With
            With F2
                .Picture = LoadPicture(PicPath)
                .Width = F.Picture.Width / 33: .Height = F.Picture.Height / 33
                .Top = Application.Top + 24
                .Left = Application.Width + Application.Left - .Width - 18
                .Caption = cell.Previous: .Show
            End With
            Unload F2
        End If

Сперва пробовал перебить другой маленькой формой, но она заметно мигает на экране, а так мигает, но хоть не другая

[VictorM]

Пример который я использую очень удобный

Согласен, пример красивый.
Но вот то неудобсто, что Вы заметили, действительно немного напрягает..

[VictorM]

немного через ж...

)))
тем не менее - работает!!!