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

Вниз

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

← →
Yanis ©   (2003-08-09 17:18) [0]

Вот что то я туплю, хочу сделать подсказку когда меняешь положение TrackBar"а. Позиция по умолчаниу у TrackBar=50, мне надо что бы если значение больше 50, например 55, то hint был бы с надписью:+5, а если положение меньше 50, например 45, то hint был бы:-5.
Код такой:

If TrackBar1.Position=50 then TrackBar1.Hint:="0";
If TrackBar1.Position>50 then
begin
TrackBar1.Hint:="+"+IntToStr(TrackBar1.Position-50);
Application.ActivateHint(Mouse.CursorPos);
TrackBar1.Hint:="??????";
end
else
begin
//вот здесь и надо написать.
end;

Просто я сегодня всю ночь не спал, теперь вот туплю. Спасибо.

---

← →
Набережных С. ©   (2003-08-09 18:52) [1]

Спать иди, а то напрограммишь

---

← →
dataMaster ©   (2003-08-09 19:02) [2]


procedure TForm1.TrackBar1Change(Sender: TObject);
begin
If TrackBar1.Position=50 then TrackBar1.Hint:="0" else
If TrackBar1.Position>50 then
TrackBar1.Hint:="+"+IntToStr(TrackBar1.Position-50)
else
TrackBar1.Hint:="-"+IntToStr(50-TrackBar1.Position);
Application.ActivateHint(Mouse.CursorPos);
end;


---

← →
Yanis ©   (2003-08-09 19:24) [3]

To Набережных С. © (09.08.03 18:52)&dataMaster © (09.08.03 19:02)
Спасибо за помощь и совет. Вот что бываетк огда невыспишся.
Люди спите ночью, компьютр за ночь не убежит.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.016 c