5,931
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zcom1 2004-02-10
- 打赏
- 举报
(sender as 标准类的名称).属性
例如：(sender as TForm).Caption:='19000';
(sender as TEdit).text:='my name is Bill';
例如：(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;
菜单事件代码：
procedure TForm1.f1Click(Sender: TObject);
begin
showmessage(popupmenu1.PopupComponent.Name);
end;
ercnet 2003-12-05
- 打赏
- 举报
没有.
我只是做个右键菜单
每个TEDIT都设定弹出菜单为此右键菜单......
比如说一个清空....
我只是做个右键菜单
每个TEDIT都设定弹出菜单为此右键菜单......
比如说一个清空....
vavyboyleon 2003-12-05
- 打赏
- 举报
现在才想起仔细看楼主的要求，sorry
self是用来调用类方法的，不是用来指示当前对象的
我只是不知道楼主的意思，用this和edit1.……有什么区别吗？
self是用来调用类方法的，不是用来指示当前对象的
我只是不知道楼主的意思，用this和edit1.……有什么区别吗？
vavyboyleon 2003-12-05
- 打赏
- 举报
c++里也有this啊，哈哈
delphi里叫self
“这个”和“自己”
呵呵
delphi里叫self
“这个”和“自己”
呵呵
fengsx 2003-12-05
- 打赏
- 举报
whith
ercnet 2003-12-05
- 打赏
- 举报
self.text:='';
没用呀??
倒是TFROM.CAPTION:=''了
没用呀??
倒是TFROM.CAPTION:=''了
free007 2003-12-05
- 打赏
- 举报
Self
huayuxing 2003-12-05
- 打赏
- 举报
self
Alanwn 2003-12-05
- 打赏
- 举报
你在前面打self.就是当前控件
