Mouse + FastReport

lucky · July 2006

Здравствуйте.
У меня к Вам следующий вопрос:
Возможна ли обработка событий мыши в собственном окне просмотра?
Делаю следующим образом, на форму кидаю объект TfrxReport и TfrxPreview. В результате могу обрабатывать только сообщение OnMouseOverObject, т.е. ни координат курсора ни нажатие кнопок я не получаю. Переопределяю оконную процедуру класса TfrxPreview, в результате тоже ничего, сообщения от мыши приходят только на сплитере Outline.
Мне нужно что бы я получал сообщения на события мыши, от каждого объекта в отчете, т.е. от каждого TfrxView.

P.S. С++ Builder.

-=Den=- · July 2006

Вам нужно подменить оконную процедуру у TfrxPreviewWorkspace, но у TfrxPreview переменная FWorkspace закрыта.

lucky · July 2006

Таким образом получается, что никак?
Непонятно почему разработчики так сделали. Ведь TfrxPreview существует специально для собственных нужд программиста, какой в нем смысл, если в него невозможно ничего добавить.

-=Den=- · July 2006

Можно, т.к. это дочерние окно TfrxPreview, указатель на TfrxPreviewWorkspace будет в списке дочерних окон.
Вот примерный код:

TfrxPreviewWorkspace * WorkSpace;
for(int i = 0;i < frxPreview1->ControlCount;i++)
if(WorkSpace = dynamic_cast <TfrxPreviewWorkspace *> (frxPreview1->Controls[i]))
{
OLDWNDPROC = SetWindowLong(WorkSpace->Handle,GWL_WNDPROC,NEWWNDPROC)
}

lucky · July 2006

Огромное спасибо, все получилось.

Oleg K · October 2006

написал:
Можно, т.к. это дочерние окно TfrxPreview, указатель на TfrxPreviewWorkspace будет в списке дочерних окон.
Вот примерный код:
TfrxPreviewWorkspace * WorkSpace;
for(int i = 0;i < frxPreview1->ControlCount;i++)
if(WorkSpace = dynamic_cast <TfrxPreviewWorkspace *> (frxPreview1->Controls[i]))
{
OLDWNDPROC = SetWindowLong(WorkSpace->Handle,GWL_WNDPROC,NEWWNDPROC)
}

А на Delphi перевести может кто? и куда конкретно подставить

Mouse + FastReport

Комментарии

Оставить комментарий