Гость
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / Подскажите какой ActiveX? / 2 сообщений из 2, страница 1 из 1
15.12.2005, 17:57
    #33439022
Отчет
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите какой ActiveX?
Подскажите какой ActiveX использовать для просмотра отчета (crystal report
11) на своей форме? Работаю в делфи, использую crpe для просмотра, но он выдает свое окно предварительного просмотра, а хотелось бы разместить отчет в своей форме.
...
Рейтинг: 0 / 0
16.12.2005, 13:23
    #33440643
?
?
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите какой ActiveX?
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
Удачи
...
Рейтинг: 0 / 0
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / Подскажите какой ActiveX? / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]