TrackBar1Change

← →
Алексей Петухов (2002-06-28 13:09) [0]

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

← →
MBo (2002-06-28 13:24) [1]

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

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

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

← →
MBo (2002-06-28 16:07) [3]

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

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

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