编程论坛 » Delphi论坛 » [求助]怎么在多个动态生成的edit中选出被鼠标选中的那个edit

阿拉格 发表于 2007-9-13 17:16

[求助]怎么在多个动态生成的edit中选出被鼠标选中的那个edit

<P><BR>怎么在多个动态生成的edit中选出被鼠标选中的那个edit</P>
<P>如果能，如何实现？？（ delphi ）</P>

anthony634 发表于 2007-9-13 22:16

<P>procedure TForm1.Onclick(Sender: TObject);<BR>var<BR>  aObj: TEdit;<BR>begin<BR>  aObj := TEdit(Sender);<BR>  aObj.Text := aObj.Name + '点中你了';</P>
<P>end;</P>
<P>procedure TForm1.FormCreate(Sender: TObject);<BR>begin<BR>  Edit1.OnClick := OnClick;<BR>  Edit2.OnClick := OnClick;<BR>end;</P>

查看完整版本: [求助]怎么在多个动态生成的edit中选出被鼠标选中的那个edit