Форум по Delphi программированию



Вернуться   Форум по Delphi программированию > Все о Delphi > Программа и интерфейс
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 04.09.2012, 16:51
Аватар для Klyaksa
Klyaksa Klyaksa вне форума
Новичок
 
Регистрация: 07.01.2012
Сообщения: 90
Репутация: 10
По умолчанию Динамическая подсказка

ЗДравствуйте. Как мне можно реализовать динамическую подсказку? То есть чтобы она обнавляла значение постоянно как только она появляется. Есть код
Код:
...dalnost: TProgressBar;...
procedure TForm1.dalnostMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
nazhal:=true;
dalnost.Position:=dalnost.max*x div dalnost.Width;
end;

procedure TForm1.dalnostMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if nazhal then dalnost.Position:=dalnost.max*x div dalnost.Width;
dalnost.hint:=inttostr(dalnost.Position);
end;

procedure TForm1.dalnostMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if nazhal then dalnost.Position:=dalnost.max*x div dalnost.Width;
nazhal:=false;
end;
стандартная подсказка то появится то исчесзнет.
Ответить с цитированием
 



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 06:57.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2021

ВКонтакте   Facebook   Twitter   Ссылка на Telegram