|
|
|
Импорт класса из BPL
|
|||
|---|---|---|---|
|
#18+
В BPL описан класс TMyForm производный от TForm (проще говоря храниться форма). Как в exe-шнике динамически подгрузить этот BPL, зарегистрировать класс TMyForm, а затем создать экземпляр TMyForm. (Типа:MyForm:=TMyForm.Create(Application)) Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.03.2003, 14:33:38 |
|
||
|
Импорт класса из BPL
|
|||
|---|---|---|---|
|
#18+
Пишу по памяти, могут быть ошибки и неточности, но механизм такой ... TMyFormClass = class of TMyForm ... FHandle: HModule; ... procedure TBlaBlaBla.LoadPackageAndCreateForm() var MyForm: TMyFormClass; begin try FHandle := LoadPackage(...); MyForm := FindClass('TMyForm'); ... UnRegisterModuleClasses(Module: HMODULE); // лишним не будет UnloadPackage(FHandle); except raise; end; end; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.03.2003, 15:52:07 |
|
||
|
Импорт класса из BPL
|
|||
|---|---|---|---|
|
#18+
И еще, в пакете при инициализации нужно зарегистрировать TMyForm, а при деинициализации UnRegister... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.03.2003, 16:13:11 |
|
||
|
Импорт класса из BPL
|
|||
|---|---|---|---|
|
#18+
Спасибо. А не знаешь где в Итете можно почитать доки обо всем этом? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.03.2003, 16:16:35 |
|
||
|
|
start [/forum/topic.php?fid=58&msg=32123068&tid=2118866]: |
0ms |
get settings: |
9ms |
get forum list: |
17ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
206ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
56ms |
get tp. blocked users: |
1ms |
| others: | 225ms |
| total: | 531ms |
| 0 / 0 |
