Gde gresim? Evo cele forme, i mouse up/down ne radi.
Code:
type
TForm1 = class(TForm)
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
TMyTrackBar = class (TTrackBar)
procedure MyTrackBarMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure MyTrackBarMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
public
property OnMouseUp;
property OnMouseDown;
end;
var
Form1: TForm1;
TrackBar1: TMyTrackBar;
implementation
{$R *.dfm}
procedure TMyTrackBar.MyTrackBarMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Form1.Label1.Caption := IntToStr(TrackBar1.Position);
end;
procedure TMyTrackBar.MyTrackBarMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Form1.Label1.Caption := IntToStr(TrackBar1.Position);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
TrackBar1 := TMyTrackBar.Create(Form1);
TrackBar1.Parent := Form1;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
TrackBar1.Free;
end;
end.