![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
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;