高分请教，dll中怎样给主程序的控件赋值

[爱你99]

dll中
function SetControlValue(Sender: Tpanel): integer; stdcall;
var
    i: Integer;
begin
    i := 0;
    result := -1;
    for i:=0 to Sender.ControlCount-1 do
    begin
        if (Sender.Controls[i] is TEdit) then
        begin
           ((Sender.Controls[i]) as TEdit).Text := '中国';
           result := 1;
        end;
    end;   
end;
在主程序中调用没有反应，请教应该怎么处理？

[lyhoo163]

Del与主程序之间是不能共享内存等资源，你将Tpanel控件作为参数，传递是不行的。

[爱你99]

那请问应该怎么处理呢？

[jayqiang]

光实现这个功能，是没有问题的！ 看demo http://pan.baidu.com/s/1skPqMXv

[爱你99]

多谢，先看看\(^o^)/~

[爱你99]

引用 3 楼 jayqiang 的回复:

光实现这个功能，是没有问题的！ 看demo http://pan.baidu.com/s/1skPqMXv

谢谢，demo ok的，不好意思，请问System.ShareMemzhe,Vcl.Forms,这些需要怎么处理下

[jayqiang]

引用 5 楼 pengjqx 的回复:

[quote=引用 3 楼 jayqiang 的回复:] 光实现这个功能，是没有问题的！ 看demo http://pan.baidu.com/s/1skPqMXv

谢谢，demo ok的，不好意思，请问System.ShareMemzhe,Vcl.Forms,这些需要怎么处理下[/quote] 不好意思。我是用delphi XE10.1版本写的demo。 给你写了一个delphi7的版本。 因为主程序和dll都需要引用ShareMem。所以在发布的时候一定要带上borlndmm.dll 如果发布时没带这个DLL。在没有装delphi的电脑上运行会提示错误的！

[jayqiang]

引用 6 楼 jayqiang 的回复:

[quote=引用 5 楼 pengjqx 的回复:] [quote=引用 3 楼 jayqiang 的回复:] 光实现这个功能，是没有问题的！ 看demo http://pan.baidu.com/s/1skPqMXv

谢谢，demo ok的，不好意思，请问System.ShareMemzhe,Vcl.Forms,这些需要怎么处理下[/quote] 不好意思。我是用delphi XE10.1版本写的demo。 给你写了一个delphi7的版本。 因为主程序和dll都需要引用ShareMem。所以在发布的时候一定要带上borlndmm.dll 如果发布时没带这个DLL。在没有装delphi的电脑上运行会提示错误的！[/quote] delphi7 版本 http://pan.baidu.com/s/1dEJ9AKD

[爱你99]

引用 7 楼 jayqiang 的回复:

[quote=引用 6 楼 jayqiang 的回复:] [quote=引用 5 楼 pengjqx 的回复:] [quote=引用 3 楼 jayqiang 的回复:] 光实现这个功能，是没有问题的！ 看demo http://pan.baidu.com/s/1skPqMXv

谢谢，demo ok的，不好意思，请问System.ShareMemzhe,Vcl.Forms,这些需要怎么处理下[/quote] 不好意思。我是用delphi XE10.1版本写的demo。 给你写了一个delphi7的版本。 因为主程序和dll都需要引用ShareMem。所以在发布的时候一定要带上borlndmm.dll 如果发布时没带这个DLL。在没有装delphi的电脑上运行会提示错误的！[/quote] delphi7 版本 http://pan.baidu.com/s/1dEJ9AKD[/quote] 亲爱的，太感谢了

[jason_xh]

引用 7 楼 jayqiang 的回复:

[quote=引用 6 楼 jayqiang 的回复:] [quote=引用 5 楼 pengjqx 的回复:] [quote=引用 3 楼 jayqiang 的回复:] 光实现这个功能，是没有问题的！ 看demo http://pan.baidu.com/s/1skPqMXv

谢谢，demo ok的，不好意思，请问System.ShareMemzhe,Vcl.Forms,这些需要怎么处理下[/quote] 不好意思。我是用delphi XE10.1版本写的demo。 给你写了一个delphi7的版本。 因为主程序和dll都需要引用ShareMem。所以在发布的时候一定要带上borlndmm.dll 如果发布时没带这个DLL。在没有装delphi的电脑上运行会提示错误的！[/quote] delphi7 版本 http://pan.baidu.com/s/1dEJ9AKD[/quote] 也刚好遇到这个问题，可以给个demo吗，谢谢！