能不能这样，请教老手！！！求救......

Question

问题：现在我动态创建N个Shape对象,如S1,S2...；
通过:
...
S1.onmousedown:=mysMouseDown;
S2.onmousedown:=mysMouseDown;
..
procedure TForm1.mysMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Sender.height:=100//错误。是不是要个句柄什么东西的就可以啦！
   mys.height:=100;//错误。
   S1.height:=100;//注意这里，我写成S1,就可以响应S1的事件。
                   那我的S2的事件响应还要在这里加一条吗？S2.height:=100 
                   那我N个呢，我要写多个吗？？？？
end;
   请教高手！谢谢！小人开始学DElphi没有多久！

Answer 1

procedure TForm1.mysMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   (Sender as TShape).height:=100//强制向下转换
 end;

Answer 2

(Sender as Tshape).height:=100,做类型强制转换
第二句没错的，
第三句不需要。
第一句已经实现了。sender 代表你点击的shape对象。