方法一:可以自己添加一个 SendMessage 消息函数,很简单的
方法二:也可以建立一个DLL文件,如楼上所说的建一个函数传递
方法三:利用注册表记录控件名称,这里给出这种代码:
在单元开始的 uses 里加上 Registry 引用,我这里就创建一个过程吧
这个函数是在要记录控件名称的单元里写的,
procedure RemeberControlName;
var
mReg:Tregistry;
begin
mReg := Tregistry.create;
try
with mReg do
begin
RootKey := HKEY_LOCAL_MACHINE ;
if not KeyExists('System\SoftwareInformation') then
begin
if
OpenKey('System\SoftwareInformation',true) then
begin
WriteString('ControlName',name);
end;
end;
finally
mReg.free;
end;
end;
下面的这个函数是在要读取控件名称的单元里写的,同样要在单元uses里加上Registry,也创建一个过程吧
procedure ReadControlName;
var
mReg:Tregistry;
mName :string; //获取控件名称的变量
begin
mReg := Tregistry.create;
try
with mReg do
begin
RootKey := HKEY_LOCAL_MACHINE ;
if OpenKey('System\SoftwareInformation',false) = true then
mName := ReadString('ControlName',name);
end;
finally
mReg.free;
end;
end;