procedure TForm1.Edit1Change(Sender: TObject);
begin
//这里我怎样不用Edit1这个名字取得Edit1的所有属性
//例如类似 这里的self指代的是form1,
//有没有什么关键字指代Edit1(或当前空间)???或者有替代方法
showmessage(self.Name+':'+self.Text);
end;
begin
//这里我怎样不用Edit1这个名字取得Edit1的所有属性
//例如类似 这里的self指代的是form1,
//有没有什么关键字指代Edit1(或当前空间)???或者有替代方法
showmessage(self.Name+':'+self.Text);
end;
caption:=(sender as TEdit).text
例如: sender.type