ЗДравствуйте. Как мне можно реализовать динамическую подсказку? То есть чтобы она обнавляла значение постоянно как только она появляется. Есть код
Код:
...dalnost: TProgressBar;...
procedure TForm1.dalnostMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
nazhal:=true;
dalnost.Position:=dalnost.max*x div dalnost.Width;
end;
procedure TForm1.dalnostMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if nazhal then dalnost.Position:=dalnost.max*x div dalnost.Width;
dalnost.hint:=inttostr(dalnost.Position);
end;
procedure TForm1.dalnostMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if nazhal then dalnost.Position:=dalnost.max*x div dalnost.Width;
nazhal:=false;
end;
стандартная подсказка то появится то исчесзнет.