Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TrackBar1Change [D6, Win95/98]


Алексей Петухов ©   (2002-06-28 13:09:00) 

Всем добрый день.
Может кто-нибудь подскажет как заставить TrackBar1Change выполниться только один раз(после освобождения кнопки мыши).
Заранее спасибо.


MBo   (2002-06-28 16:07:00) [1]

добрые люди подсказали про getkeystate ;)

procedure TForm1.TrackBar1Change(Sender: TObject);
var i:shortint;
begin
i:=getkeystate(vk_lbutton);
if i>-127 then //твои действия
label1.caption:=inttostr(TrackBar1.Position);
end;


Алексей Петухов   (2002-06-28 15:09:00) [2]

Спасибо за совет, но
я имел ввиду что событие не должно вызываться во время протаскивания, а только после освобождения мыши.


MBo   (2002-06-28 13:24:00) [3]

Если он больше не нужен, сделай
TrackBar1.OnChange:=nil;


Наверх

Титульная страница Поиск, карта сайта Написать письмо