Архив форумов ЦИТФорума

[SCFT]

Здравствуй многоуважаемый All!
Создал dll-ку в которой использую форму...
USEFORM("dllform.cpp", dllf);
потом создаю функцию, которая возвращает строку, которую ввели dllf->Edit1

void Vedomost (ShortString& out)
{
Application->Initialize();
Application->CreateForm (__classid(Tdllf), &dllf);
dllf->Visible=true;
out=dllf->Edit1->Text;
}
В форме только Edit1 и кнопка закрытия формы..
и в результате при вызове из программы функции Vedomost..
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ShortString Out;
Vedomost (Out);
Edit1->Text=Out;
}
Edit1 - пустой...

[Adil]

Если тебе нужно по нажатию кнопки вывесить форму, ввести что-то в Эдит, закрыть форму и только после этого считать текст Эдита, то поменяй

dllf->Visible=true; на
dllf->ShowModal();

иначе у тебя сразу проскакивает...

Еще у тебя лишняя строка
Application->Initialize();

а вообще, я делал так
void __fastcall TForm1::Button1Click(TObject* )
{
if(!DllForm)
DllForm=new TDllForm(NULL);
DllForm->ShowModal();
Label1->Caption=DllForm->Edit1->Text;
}
вроде работало (при статичеком подключении бибки).
Удачи.