使用通有事件过程，如何查找事件产生的控件
摘要：
procedure TForm1.Image1Click(Sender: TObject);//能用过程var S:TObject;begin S:=FindComponent('Timer'+inttostr(TImage(Sender).Tag));//Timer控件 ，名称为 Timer1---到 －－－Timer9 if Assigned(s) then ///利用TImage(Sender).Tag查找到 begin if TTimer(s).Enabled then begin TImage(Sender).Picture.Assign(image8.Picture 阅读全文
posted @ 2011-12-23 23:52 舟山牙医 阅读(188) 评论(0) 推荐(0) 编辑