传一个Label、Edit组件的句柄给一函数，能让函数控制组件吗？

yzykjh 2003-10-16 09:17:21

同上

...全文

38 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

ydq2003 2003-10-19

打赏
举报

好像只能用API函数哦
或用消息系统函数

mib3000 2003-10-19

打赏
举报

label1.handle?

newnewworm 2003-10-18

打赏
举报

procedure Doit(Obt:TObject);
begin
if (obt is TLabel) then
(obt as TLabel).caption:=' ';
if (obt is TEdit) then
(obt as TEdit).text:=' ';
end;
---------
还是学习一下了！

yzykjh 2003-10-18

打赏
举报

jin_zai 2003-10-16

打赏
举报

函数：
function fun1(h:thandle):integer;
var
WinControl: TWinControl;
begin
WinControl := FindControl(h);

if WinControl is tlabel then tlabel(WinControl).caption:='aaa';
if WinControl is tedit then tedit(WinControl).text:='aaa';
end;

调用：
fun1(label1.handle);
fun1(edit1.handle);

yzykjh 2003-10-16

打赏
举报

我是说能用句柄(THandle)作参数。

yuanyu368 2003-10-16

打赏
举报

procedure yuan(obj:tobject);
begin
if （ojt is Tlabel） then
(ojt as Tlabel).caption:='这个是标签';
if (ojt is Tedit) then
(ojt as Tedit)...............
end;

jin_zai 2003-10-16

打赏
举报

函数：
function fun1(obj:tobject):integer;
begin
if obj is tlabel then tlabel(obj).caption:='aaa';
if obj is tedit then tedit(obj).text:='aaa';
end;

调用：
fun1(label1);
fun1(edit1);