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

[Аватар]

Stilet, делфи какой? В D7 нет событий OnMouseDown и OnMouseUp у TrackBar-а

[Stilet]

Хм... Лазарус.
Если нет то можно ее описать через message метод для класса трэкбара.

[northener]

Сообщение от Аватар

[B]В D7 нет событий OnMouseDown и OnMouseUp у TrackBar-а

Ну вообще-то TTrackBar наследник TControl. Так что есть эти события. Нужен только небольшой трюк:

unit Unit89;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TForm89 = class(TForm)
    TrackBar1: TTrackBar;
    procedure MyTrackBarMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form89: TForm89;

implementation

{$R *.dfm}
type
  TMyTrackBar = class(TTrackBar);


procedure TForm89.FormCreate(Sender: TObject);
begin
  TMyTrackBar(TrackBar1).OnMouseDown:=MyTrackBarMouseDown;
end;

procedure TForm89.MyTrackBarMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('MyTrackBarMouseDown');
end;

end.

И вуаля!

[Алексей_2012]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    procedure FormCreate(Sender: TObject);
        procedure MyTrackBarMouseup(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
type
  TMyTrackBar = class(TTrackBar);



 procedure TForm1.MyTrackBarMouseup(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Sleep(200);
 Form1.caption:='';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    TMyTrackBar(TrackBar1).OnMouseUp:=MyTrackBarMouseup;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 form1.Caption:=IntToStr(TrackBar1.Position)+'% громкость';
end;

end.

Ну вот что у меня получилось, но так как sleep мешает работе всей формы, то надо как-то выкручиваться, будут ли какие-нибудь предложения?

[Larboss]

Вывести sleep в поток или "тики" считать.

[Алексей_2012]

А как выносить в поток?

[northener]

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

Ну вот что у меня получилось, но так как sleep мешает работе всей формы, то надо как-то выкручиваться, будут ли какие-нибудь предложения?

Ну а почему отказались от применения таймера?

P.S. Да и вообще-то регулятор громкости в WinAmp'е ведет себя несколько иначе.

[northener]

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

Вывести sleep в поток или "тики" считать.

Вы сам вопрос то читали? Чем может помочь вызов Sleep в доппотоке? Или как вы предлагаете считать тики?

Или вы считаете что то, что вы назвали себя "слесарь-программист" вас спасёт от критики?

[Алексей_2012]

Ну а почему отказались от применения таймера?

ну во первых мне не ясен алгоритм работы кода, а во вторых таймеров итак много будет))

P.S. Да и вообще-то регулятор громкости в WinAmp'е ведет себя несколько иначе.

Ну я не фанат винампа, поэтому пытаюсь что-нибудь сделать, чтобы было как в аимпе)

[northener]

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

ну во первых мне не ясен алгоритм работы кода, а во вторых таймеров итак много будет))

Ну сказали бы сразу что вам нужен готовый код. А таймеров много не бывает.