1

プラスとマイナスとして機能するフォームで2つのTButtonコンポーネントを使用していました。クリックすると、整数を加算または減算し、TLabelに表示されます。

これは、クリックする速度でOnClickイベントが問題なく発生する場合に必要に応じて機能しました。

ボタンをより美しく見せるために、ボタンをPNGButtonコンポーネントに置き換えました。コンポーネントをクリックするたびにOnClickイベントが発生しているようには見えないことを除いて、すべてが以前と同じように機能します。単純なTImageコンポーネントでもこれをテストしましたが、結果は同じです。

非常にゆっくりクリックすると毎回発火しますが、一定のペースでクリックすると1秒おきに発火するようです。

OnClickイベントが毎回発生するようにするにはどうすればよいですか？

4

1 に答える 1

1

OnClickイベントを使用する代わりに、OnMouseUpイベントを使用します。

procedure TForm.btnMinusMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Self.NumSelected > 0 then begin
    Self.NumSelected := Self.NumSelected - 1;
    Self.UpdateLabel;
  end;
end;
于 2009-11-10T01:13:25.390 に答える