Witam,
mam problem..
posiadam taki kod
//ProgressBar1 OnMouseMove
procedure TForm1.ProgressBar1MouseMove(
Sender: TObject;
Shift: TShiftState;
X, Y: Integer) ;
var
newPosition : integer;
begin
if ssShift in Shift then
begin
ProgressBar1.Cursor := crHSplit;
newPosition := Round(x * ProgressBar1.Max / ProgressBar1.ClientWidth) ;
ProgressBar1.Position := newPosition;
end
else
begin
ProgressBar1.Cursor := crDefault;
end;
end;
Chciałem przerobić ten kod na własny komponent, ale nie wiem jak we własnym komponencie użyć onMouseMove :/
Chciałem żeby mój własny pasek miał zmienny postęp tak jak w tym kodzie, ale nie wiem, jak się za to zabrać...
Pomóżcie :(