Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.023 c
1-81661
edicon
2003-08-12 00:42
2003.08.25
Мышь...


1-81631
ZioN
2003-08-12 15:13
2003.08.25
Повторный запуск приложнеия


14-81899
R/\MMS†EIN
2003-08-06 12:22
2003.08.25
MUSIC


1-81775
Vlad
2003-08-14 11:49
2003.08.25
Обработка исключительных ситуаций в Delphi


4-82010
Intense
2003-06-22 01:44
2003.08.25
Drag&Drop and Explorer.