怎样像VB中一样有个THIS....表示当前控件???

ercnet 2003-12-05 08:46:20
怎样像VB中一样有个THIS....表示当前控件???
...全文
219 11 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
zcom1 2004-02-10
  • 打赏
  • 举报
回复
(sender as 标准类的名称).属性

例如:(sender as TForm).Caption:='19000';
(sender as TEdit).text:='my name is Bill';
lijinghe1 2004-02-10
  • 打赏
  • 举报
回复
是要sender?
xhg0418 2004-02-10
  • 打赏
  • 举报
回复
那不是用Self,用popupcomponent
菜单事件代码:

procedure TForm1.f1Click(Sender: TObject);
begin
showmessage(popupmenu1.PopupComponent.Name);
end;
ercnet 2003-12-05
  • 打赏
  • 举报
回复
没有.
我只是做个右键菜单
每个TEDIT都设定弹出菜单为此右键菜单......
比如说一个清空....
vavyboyleon 2003-12-05
  • 打赏
  • 举报
回复
现在才想起仔细看楼主的要求,sorry
self是用来调用类方法的,不是用来指示当前对象的
我只是不知道楼主的意思,用this和edit1.……有什么区别吗?
vavyboyleon 2003-12-05
  • 打赏
  • 举报
回复
c++里也有this啊,哈哈
delphi里叫self
“这个”和“自己”
呵呵
fengsx 2003-12-05
  • 打赏
  • 举报
回复
whith
ercnet 2003-12-05
  • 打赏
  • 举报
回复
self.text:='';
没用呀??
倒是TFROM.CAPTION:=''了
free007 2003-12-05
  • 打赏
  • 举报
回复
Self
huayuxing 2003-12-05
  • 打赏
  • 举报
回复
self
Alanwn 2003-12-05
  • 打赏
  • 举报
回复
你在前面打self.就是当前控件

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧