onmousedown事件中的sender怎么用？

Question

你可以象这样访问到你的Image
TImage(sender).Height=200;

Answer 1

可以这样  if TImage(Sender)=Image[i] then
    做你想做的事

Answer 2

为image的数组中的image设置不同的Tag,
ONImageMouseDown:
if (sender as Timage).Tag=i then
  do something

Answer 3

大家复习一下阿～Using the Sender parameterIn an event handler, the Sender parameter indicates which component received the event and therefore called the handler. Sometimes it is useful to have several components share an event handler that behaves differently depending on which component calls it. You can do this by using the Sender parameter in an if...then...else statement. For example, the following code displays the title of the application in the caption of a dialog box only if the OnClick event was received by Button1.procedure TMainForm.Button1Click(Sender: TObject);begin
if Sender = Button1 then
  AboutBox.Caption := 'About ' + Application.Title
else 
  AboutBox.Caption := '';
AboutBox.ShowModal;
end;

Answer 4

jianping0说的对，不过别忘了设置每个数组元素的Tag属性。

Answer 5

Send:发送
Sender:发送者..MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
这里指鼠标按下的对象procedure Tchatform.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TImage(Sender).Height := 100;
  TImage(Sender).Width := 100;
end;//把Image1.OnMouseDown,Image2.OnMouseDown..ImageX.OnMouseDown都赋成ImageMouseDown就都可以控制