掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Trackbarの移動に伴いMediaplayerのPositionを変更するには？ (ID:34611)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
OnChangeではないけれど type TTrackBar = class(ComCtrls.TTrackBar); var SavePosition: Integer; procedure TForm1.FormCreate(Sender: TObject); begin TTrackBar(TrackBar1).OnMouseUp := TrackBarMouseUp; TTrackBar(TrackBar1).OnMouseDown := TrackBarMouseDown; TrackBar1.PageSize := 0; end; procedure TForm1.Timer1Timer(Sender: TObject); begin TrackBar1.Position := MediaPlayer1.Position; end; procedure TForm1.TrackBarMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin SavePosition := TrackBar1.Position; Timer1.Enabled := False; end; procedure TForm1.TrackBarMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if TrackBar1.Position <> SavePosition then begin MediaPlayer1.Position := TrackBar1.Position; MediaPlayer1.Play; end; Timer1.Enabled := True; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.