掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ボタンを押し続けて数値を連続変化するには。 (ID:33630)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
初心者コードですが、 以下でどうでしょうか？？ 例ですが、 Edit1、Timer1、Button1を配置します。 ボタンを押し続けると、Editの数値が増し続けます。 離すと、MouseUpイベントでBooleanがFalseになり、 数値のカウントがとまります。 var Form1: TForm1; setbtn:boolean=false; count1:integer=0; implementation {$R *.DFM} procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin setbtn := false; end; procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin setbtn := true; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if setbtn then begin count1 := count1 + 1; edit1.Text := inttostr(count1); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.