Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
15.12.2005, 17:57
|
|||
---|---|---|---|
|
|||
Подскажите какой ActiveX? |
|||
#18+
Подскажите какой ActiveX использовать для просмотра отчета (crystal report 11) на своей форме? Работаю в делфи, использую crpe для просмотра, но он выдает свое окно предварительного просмотра, а хотелось бы разместить отчет в своей форме. ... |
|||
:
Нравится:
Не нравится:
|
|||
|
16.12.2005, 13:23
|
|||
---|---|---|---|
|
|||
Подскажите какой ActiveX? |
|||
#18+
ActiveX тебе не нужен, дай ему это procedure TForm1.FormCreate(Sender: TObject); begin Crpe1.WindowParent := Self; Crpe1.WindowSize.Top := 1; Crpe1.WindowSize.Left := 1; Crpe1.WindowSize.Height := Self.ClientHeight-1; Crpe1.WindowSize.Width := Self.ClientWidth-1; Crpe1.WindowStyle.SystemMenu := False; Crpe1.WindowStyle.BorderStyle := bsNone; end; procedure TForm1.FormResize(Sender: TObject); var MyWindow : hWnd; begin MyWindow := Crpe1.ReportWindowHandle; SetWindowPos(MyWindow, HWND_TOP, 0, 1, Self.ClientWidth-1, Self.ClientHeight-1, SWP_NOZORDER); end; добавить если форма fsMDIChild: procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; end; если не жалко дай VCL crpe для 11 Кристала > zamuruev@list.ru Удачи ... |
|||
:
Нравится:
Не нравится:
|
|||
|
|
start [/forum/topic.php?fid=31&mobile=1&tid=1539337]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
59ms |
get topic data: |
14ms |
get forum data: |
3ms |
get page messages: |
40ms |
get tp. blocked users: |
2ms |
others: | 14ms |
total: | 166ms |
0 / 0 |