如何返回DLL 窗口 中的 Edit1、Edit2 的值？(100)

消息机制不好懂，不过 有人（LIEN）推荐用函数，以下是我的测试，调式时 在 if vForm.ModalResult = mrOK then 出错，Undeclared identifier: 'mrOK'这是什么原因？又怎样调用这函数？class function Tfrom.ShowForm(app: TComponent;var user_id, user_Name: string): Integer;var vForm: Tfrombegin vForm := nil
Result := 0
try vForm := Tfrom.Create(app)
vForm.Initform
vForm.ShowModal
if vForm.ModalResult = mrOK then begin user_id := vForm.edt_user_id.Text
user_Name:= vForm.edt_user_Name.Text
Result := 1
end
if vForm <> nil then FreeAndNil(vForm)
except if vForm <> nil then FreeAndNil(vForm)
raise
end;end;

是不是没有引用Controls单元呀？

mrok 在 Controls单元里面 同时你使用 ShowModal，需要在vForm 的按钮上 定义 ModalResult