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;

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

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