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

Question

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

Answer 1

你在前面打self.就是当前控件

Answer 2

self.text:='';
没用呀??
倒是TFROM.CAPTION:=''了

Answer 3

c++里也有this啊，哈哈
delphi里叫self
“这个”和“自己”
呵呵

Answer 4

现在才想起仔细看楼主的要求，sorry
self是用来调用类方法的，不是用来指示当前对象的
我只是不知道楼主的意思，用this和edit1.……有什么区别吗？

Answer 5

没有.
我只是做个右键菜单
每个TEDIT都设定弹出菜单为此右键菜单......
比如说一个清空....

Answer 6

那不是用Self，用popupcomponent
菜单事件代码：procedure TForm1.f1Click(Sender: TObject);
begin
  showmessage(popupmenu1.PopupComponent.Name);
end;

Answer 7

(sender as 标准类的名称).属性例如：(sender as TForm).Caption:='19000';
      (sender as TEdit).text:='my name is Bill';