Вывод на заголовок формы позицию ползунка Ttrackbar

[Алексей_2012]

Здравствуйте! Как уловить нажатие и удержание левой клавиши мыши на объекте трекбар, суть вот в чем: при изменении позиции трекбара вывести текущую позицию ползунка в заголовок формы, далее проверить: перемещается ли ползунок, если нет, то показать позицию трекбара в течении секунды и убрать ее(позиЦию), а если иначе, то динамически отображать позицию трекбара на форме, ну что-то типа регулятора громкости как в аимпе

procedure Tglavnaya.TrackBar1Change(Sender: TObject);
begin
  glavnaya.Caption:='Громкость: '+IntToStr(TrackBar1.Position);
  Trackbar1.SelStart:=Trackbar1.Min;
Trackbar1.SelEnd:=Trackbar1.Position;
Sleep(30);
glavnaya.Caption:='';
end;

вот мои наработки, но меня они не устраивают, потому что позиция ползунка должна показываться в течении хотя-бы секунды

[unbanned]

первое что пришло в голову это кинуть на форму таймер на 2 секунды и сделать примерно так...

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 with trackbar1 do
  begin
    Form1.Caption := 'Громкость:' + IntToStr(Position);
    SelStart := Min;
    SelEnd := Position;
  end;
  timer1.Enabled := True;
end;

procedure TForm1.timer1Timer(Sender: TObject);
begin
  Form1.Caption := '';
end;

под ваше описание подходит)

но отсчет таймера начинается с того момента как вы зажали левую кнопку мыши на ползунке) и не учитывает отпущена ли мышь или нет... в моем понимании пока зажата мышь на ползунке, громкость должна отображаться постоянно, как только отпустили, должен начинаться отсчет

события OnMouseUp у трекбара нет) поэтому придется придумать что то... возможно перед запуском таймера проверять состояние кнопки мыши) или что либо еще...

P.S. sleep(); не используйте, т.к. зависает вся форма

[northener]

Внурти процедуры либо вызывайте Application.ProcessMessages, либо процедуру Repaint.

[unbanned]

northener
если есть возможность вообще не использовать, зачем что-то придумывать, тем более что интерфейc "замораживает" все равно.

в основном потоке использование sleep() редко оправдывает себя

[Аватар]

  TForm1 = class(TForm)
    TrackBar: TTrackBar;
    Timer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure TrackBarChange(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
  private
    { Private declarations }
    StartTic: Cardinal;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer.Interval:=50;
end;

procedure TForm1.TrackBarChange(Sender: TObject);
begin
  Caption:=Format('Громкость: %d',[TrackBar.Position]);
  StartTic:=GetTickCount;
  Timer.Enabled:=True;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
  if GetTickCount-StartTic>=1000 then begin
    Caption:='Что-то';
    Timer.Enabled:=False;
  end;
end;

[Алексей_2012]

Спасибо Вам всем, +1, но тут еще кое-что (я по поводу кода Аватара), все работает как надо, но немножко не так, когда держишь ползунок у трекбара, то срабатывает таймер, и заголовок формы выдает надпись "Что-то", это конечно я заменю названием текущего трека, но все же, таймер не должен срабатывать пока ползунок не будет отпущен

З.Ы. Гляньте заготовку плеера, дизайн, "слипание форм" и т.д, что можно улучшить из того, что у меня есть?

[саша40]

Сообщение от Алексей_2012

Здравствуйте! Как уловить нажатие и удержание левой клавиши мыши на объекте трекбар, суть вот в чем: при изменении позиции трекбара вывести текущую позицию ползунка в заголовок формы, далее проверить: перемещается ли ползунок, если нет, то показать позицию трекбара в течении секунды и убрать ее(позиЦию), а если иначе, то динамически отображать позицию трекбара на форме, ну что-то типа регулятора громкости как в аимпе

Вот скажи тебе так в голову всбрело или ты ещё головой ударился? Да за тебя это уже сделал компонент, сгенерировав событие onChange ещё раз.

[Стертор]

TForm1 = class(TForm)
    TrackBar: TTrackBar;
    Timer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure TrackBarChange(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
  private
    { Private declarations }
    StartTic: Cardinal;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer.Interval:=50;
end;

procedure TForm1.TrackBarChange(Sender: TObject);
begin
  Caption:=Format('Громкость: %d',[TrackBar.Position]);
  StartTic:=GetTickCount;
  Timer.Enabled:=True;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
  if GetTickCount-StartTic>=1000 then begin
    Caption:='Что-то';
    Timer.Enabled:=False;
  end;
end;

Банить надо таких "профессионалов", за тупость.

[Аватар]

Сообщение от Стертор

Банить надо таких "профессионалов", за тупость.

Умник, предложи не тупого

[Stilet]

Ну и мой вариант:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Timer1: TTimer;
    TrackBar1: TTrackBar;
    procedure Timer1Timer(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure TrackBar1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 Caption:=IntToStr(TrackBar1.Position);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
      Caption:='';
      TTimer(sender).Enabled:=false;
end;

procedure TForm1.TrackBar1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TTrackBar(Sender).tag:=1;
  TrackBar1Change(sender);
  TTimer(sender).Enabled:=false;
end;

procedure TForm1.TrackBar1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if TTrackBar(Sender).tag=1 then  begin
    TTrackBar(Sender).tag:=0;
    Timer1.Enabled:=true;
  end;
end;

end.