掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ボタンを押している間インクリ (ID:28731)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでしょうか？ var Form3: TForm3; FMouseDown,FMouseUp : Boolean; TickCount : DWord; implementation {$R *.dfm} procedure TForm3.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if FMouseDown = True then begin while (1000 > GetTickCount - TickCount) and (FMouseUp = False) do begin Application.ProcessMessages; end; end; if FMouseUp = False then begin Caption := Caption + '1'; FMouseDown := True; TickCount := GetTickCount; BitBtn1MouseDown(Sender,Button,Shift,X,Y); end; FMouseUp := False; end; procedure TForm3.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin FMouseDown := False; FMouseUp := True; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.