procedure TfrmMain.slSliderChange(Sender: TObject);
var
pt: TPoint;
ctrl: TControl;
begin
pt := ScreenToClient(Mouse.CursorPos);
lbHint.Caption := IntToStr(trunc(TECSlider(Sender).Position));
ctrl := ControlAtPos(pt, [capfRecursive, capfAllowWinControls]);
if Assigned(ctrl) then
begin
pnHint.Left := ctrl.Left + ctrl.Width - lbHint.Width
end
else
pnHint.Left := pt.Y;
pnHint.Top := pt.Y;
//pnHint.BringToFront;
lbHint.Visible := True;
end;
procedure TfrmMain.slSliderMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
lbHint.Visible := False;
end;