Скачать: CL | DM;

bpl вместо dll   Найти похожие ветки 

← →
Пубертанец   (2004-01-15 12:20) [0]

Где можно найти примеры для работы с bpl, как с dll. И конкретно, как загнать в bpl форму, а из главной программы вызвать эту форму?

---

← →
Sandman25 ©   (2004-01-15 12:32) [1]

В BPL прописывается процедура, вызываемая из главной программы.
Эта процедура создает форму и показывает ее.

---

← →
Пубертанец   (2004-01-15 12:50) [2]

А можно конкретный пример с кодом (и bpl, и главной программы)?

За ответ спасибо

---

← →
Sandman25 ©   (2004-01-15 12:57) [3]

BPL:
package ListSel;

{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$IMPLICITBUILD OFF}

requires
rtl,
vcl,
dsnap,
vclx,
Common,
vcldb;

contains
lsListSel in "lsListSel.pas" {fmListSel};

end.

unit lsListSel;
interface

...
function ChooseFromList_ShowModal(
const SelectStatement: string;
...
): boolean;
implementation

var
fmListSel: TfmListSel;

function ChooseFromList_ShowModal(
...
begin
if fmListSel = nil then
fmListSel := TfmListSel.Create(Application);
Result := ShowModal = mrOK;
end;

...
главная программа

uses lsListSel;

procedure TfmMain.ListSelClick(Sender: TObject);
begin
if ChooseFromList_ShowModal(...) then
...
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.006 c