Здравствуйте, Kirill Bezrukov, Вы писали:
KB>Пакет загружается статически, при ShowModal выдается ошибка. И даже при ShowMessage.
KB>Что не так делаю?
KB>..........
KB>
Я что-то не понял. А зачем exports? Почему не uses?
unit UnitInPackage;
interface
function ShowForm(ADataSet: TDataSet): boolean;
implementation
function ShowForm(ADataSet: TDataSet): boolean;
begin
ADataSet.Open;
Form1 := TForm1.Create(Application);
try
Form1.DataSource1.DataSet := ADataSet;
Result := Form1.ShowModal = IDOK;
finally
Form1.Free;
end;
end;
{$R *.dfm}
end.
И дальше:
uses UnitInPackage;
...........
ShowForm(...)
Только поставить опцию --- Build with package unit, куда включить RTL, VCL, и пакет для работы с БД.
