5,928
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
caiso 2005-03-05
- 打赏
- 举报
顶一下
王集鹄 2005-03-04
- 打赏
- 举报
//参考如下代码
procedure TForm1.Button1Click(Sender: TObject);
var
vWinControl: TWinControl;
begin
vWinControl := FindControl(Button1.Handle);
if Assigned(vWinControl) then Caption := vWinControl.Name;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
vWinControl: TWinControl;
begin
vWinControl := FindControl(Button1.Handle);
if Assigned(vWinControl) then Caption := vWinControl.Name;
end;
DragonCity1 2005-03-04
- 打赏
- 举报
Mark.
dotNet中有一个方法就是用来做这个的，好像是ControlFromHandle，但是不知道在Delphi中怎么实现的。
dotNet中有一个方法就是用来做这个的，好像是ControlFromHandle，但是不知道在Delphi中怎么实现的。
g961681 2005-03-04
- 打赏
- 举报
你想做什么？
g961681 2005-03-04
- 打赏
- 举报
如何理解？
程序小童的爸爸 2005-03-04
- 打赏
- 举报
对,怎么了?
