???滑鼠按下?r如何?mousedown?息一直???

jokedj

???滑鼠按下?r如何?mousedown?息一直???
如下程序,不管按下多久,i都不??黾?要?i一直增加怎??呢?
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
      i:=i+1;
      caption:=inttostr(i);
end;

nocture

我以前做过用鼠标拖动TImage元件的效果，方法是：如果没有检测到MouseUp消息就认为鼠标一直处于按下的状态。效果很好。

var IsDown: boolean;

procedure ImageMouseDown(...)
begin
  IsDown := true;
end;

procedure ImageMouseUp(...)
begin
  IsDown := false;
end;