Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.027 c
2-1190354881
em240
2007-09-21 10:08
2007.10.14
indy+ping


15-1189496573
ocean
2007-09-11 11:42
2007.10.14
Очистить фон на фотографии


1-1185952348
Dmitry_177
2007-08-01 11:12
2007.10.14
Как сделать чтобы Edit имелл фокус при запуске


2-1189796974
AlRal
2007-09-14 23:09
2007.10.14
Поставить один GroupBox над другим


15-1189596497
FreeTT
2007-09-12 15:28
2007.10.14
Добавление группы в TRZBarGroup