Текущий архив: 2007.10.14;
Скачать: CL | DM;

Вниз

TrackBar   Найти похожие ветки 

← →
Sonic90   (2007-09-15 13:42) [0]

Подскажите пожалуйста как сделать, чтобы при нажатии на TrackBar его ползунок сразу же переходил на место нажатия(чтобы не тянуть его до этого места).

---

← →
{RASkov} ©   (2007-09-15 15:13) [1]

> [0] Sonic90   (15.09.07 13:42)

Может как нибудь так:

 TForm1 = class(TForm)
   ....
   TrackBar: TTrackBar;
   procedure FormCreate(Sender: TObject);
 private
   OldWndProc: TWndMethod;
   procedure NewWndProc(var Mes: TMessage);
 end;

............

procedure TForm1.FormCreate(Sender: TObject);
begin
 OldWndProc:=TrackBar.WindowProc;
 TrackBar.WindowProc:=NewWndProc;
end;

procedure TForm1.NewWndProc(var Mes: TMessage);
begin
 if Mes.Msg=WM_LBUTTONDOWN then
  TrackBar.Position:=Round((TrackBar.Max/(TrackBar.Width-20))*(TWMMouse(Mes).XPos-10));
 OldWndProc(Mes);
end;

Только вместо констант (20 и 10) желательно узнать "правильные значения", но я не нашел их(или плохо искал)....
Впрочем может и не правильная у меня "матиматика", так как матиматика вообще у меня хромает :(

---

Страницы: 1 вся ветка

Текущий архив: 2007.10.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.025 c