1 unit Unit1; 2 3 {$mode objfpc}{$H+} 4 5 interface 6 7 uses 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, 9 BCTrackbarUpdown; 10 11 type 12 13 { TForm1 } 14 15 TForm1 = class(TForm) 16 BCTrackbarUpdown1: TBCTrackbarUpdown; 17 BCTrackbarUpdown2: TBCTrackbarUpdown; 18 BCTrackbarUpdown3: TBCTrackbarUpdown; 19 CheckBox1: TCheckBox; 20 Label1: TLabel; 21 procedure BCTrackbarUpdown3Change(Sender: TObject; {%H-}AByUser: boolean); 22 procedure CheckBox1Change(Sender: TObject); 23 private 24 { private declarations } 25 public 26 { public declarations } 27 changeCount: integer; 28 end; 29 30 var 31 Form1: TForm1; 32 33 implementation 34 35 {$R *.lfm} 36 37 { TForm1 } 38 39 procedure TForm1.BCTrackbarUpdown3Change(Sender: TObject; AByUser: boolean); 40 begin 41 inc(changeCount); 42 label1.Caption := 'Change #'+inttostr(changeCount)+': value '+inttostr(TBCTrackbarUpdown(Sender).Value); 43 end; 44 45 procedure TForm1.CheckBox1Change(Sender: TObject); 46 begin 47 BCTrackbarUpdown1.Enabled := CheckBox1.Checked; 48 end; 49 50 end. 51 52