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

[Человек_Борща]

Вообще можно без таймеров, они не нужны....
За 15 минут все это пишется!
Вот те код исконно delphiйский....

unit Unit3;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.ComCtrls,
  Vcl.StdCtrls;

type
  TMyTrackBarChangeEx = procedure(Sender: TObject; LButtonInHold: Boolean) of object;

  TMyTrackBar = class(TTrackBar)
  private
    fLBtnHolds: Boolean;
    fChangeEx: TMyTrackBarChangeEx;
    procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
    procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
  protected
    procedure Changed; override;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property OnChangeEx: TMyTrackBarChangeEx read fChangeEx write fChangeEx;
    property Align;
    property Anchors;
    property BorderWidth;
    property Ctl3D;
    property DoubleBuffered;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property Constraints;
    property LineSize;
    property Max;
    property Min;
    property Orientation;
    property ParentCtl3D;
    property ParentDoubleBuffered;
    property ParentShowHint;
    property PageSize;
    property PopupMenu;
    property Frequency;
    property Position;
    property PositionToolTip;
    property SliderVisible;
    property SelEnd;
    property SelStart;
    property ShowHint;
    property ShowSelRange;
    property TabOrder;
    property TabStop;
    property ThumbLength;
    property TickMarks;
    property TickStyle;
    property Touch;
    property Visible;
    property StyleElements;
    property OnContextPopup;
    property OnChange;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDock;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnGesture;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnStartDock;
    property OnStartDrag;
  end;

procedure register;

implementation

{ TMyTrackBar }

procedure register;
begin
  RegisterComponents('Samples', [TMyTrackBar]);
end;

procedure TMyTrackBar.Changed;
begin
  inherited;
  if Assigned(fChangeEx) then
    fChangeEx(Self, fLBtnHolds);
end;

constructor TMyTrackBar.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

procedure TMyTrackBar.WMLButtonDown(var Message: TWMLButtonDown);
begin
  inherited;
  fLBtnHolds := True;
end;

procedure TMyTrackBar.WMLButtonUp(var Message: TWMLButtonUp);
begin
  inherited;
  fLBtnHolds := False;
end;

Устанавливай и пользуйся.

Работает просто:
Там 3 перегруженных метода.
2 ловушки на мышару, 1 на левое нажатие, 2 на поднятие.
Пока не поднята кнопка,кнопка считается зажатой.
Перегруженное событие Changed вызываемое в предке,
вызывается и у нас, а мы вызываем своё событие ChangeEx в котором LButtonInHold указывает на состояние левой кнопки мышки.

Под правую, и все остальные, сам переделаешь.

работает на ура.

[Алексей_2012]

спасибо, но все же, как sleep занести в поток? Или Человек_Борща это и сделал? Код мне готовый не нужен, потому что надо стараться писать самому, от копипасты ничего хорошего не добьешься, а мой алгоритм в следующем, ну немного исправленный правда, что если кнопка отпущена, то заголовок формы немного держится и затерается, а событие onchange опять же показывает громкость на форме, знаю что алгоритм так себе, мешает sleep, вот и хочу его вынести в поток)

[Человек_Борща]

Или Человек_Борща это и сделал?

Я не использовал ни таймеры ни потоки ни Sleep'ы.

А только 2 хука и Bool переменную.

[IvaniuS]

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

спасибо, но все же, как sleep занести в поток? Или Человек_Борща это и сделал? Код мне готовый не нужен, потому ..........форме, знаю что алгоритм так себе, мешает sleep, вот и хочу его вынести в поток)

Так сделай еще 1 таймер и запускай его в событии онкейап, а в событии таймера стирай заголовок формы.

[northener]

[QUOTE=Алексей_2012;1259227]спасибо, но все же, как sleep занести в поток? /QUOTE]
Чем вам так приспичило использование доппотока?

[Алексей_2012]

я хочу уменьшить размер исходника, с таймером просто, а с потоком? Научите с ними работать, пожалуйста

[Stilet]

хочу уменьшить размер исходника

Всмысле размер исходника? использование TThread врядли поможет в этом деле, учитывая что еще придется описывать для нее свой класс. Если конечно не использовать анонимные потоки, что возможно в ХЕ-шных Делфи.

[Человек_Борща]

Если конечно не использовать анонимные потоки, что возможно в ХЕ-шных Делфи.

о_О Что за зверь такой? Можно подробнее?

я хочу уменьшить размер исходника, с таймером просто, а с потоком? Научите с ними работать, пожалуйста

Поток только увеличит размер исходника. Я уже писал и компонент готовый дал, где без потоков, таймеров, циклов все работает.

[Алексей_2012]

[Fatal Error] Unit1.pas(6): File not found: 'Winapi.Windows.dcu'

извиняюсь. у меня не установлен какой-то компонент?

[Icabod]

хочу уменьшить размер исходника
Всмысле размер исходника? использование TThread врядли поможет в этом деле, учитывая что еще придется описывать для нее свой класс. Если конечно не использовать анонимные потоки, что возможно в ХЕ-шных Делфи.

Это простите из пустого в порожнее, но с обратным эффектом. Xe генерирует огромные исполняемые бинарники, так что толку мало от нее. Из делфей пятерка самая компактная в этом плане.