- Code: Select all
procedure Tvolfrm.VolumeChange(Sender: TObject);
var
i: Integer;
begin
i := TrackBarToValue(Volume.Position,Volume.Max,Volume.Min);
if Not volumeClose then
try
//any thing
except
end;
end;
but the level never changes any hint ?
procedure Tvolfrm.VolumeChange(Sender: TObject);
var
i: Integer;
begin
i := TrackBarToValue(Volume.Position,Volume.Max,Volume.Min);
if Not volumeClose then
try
//any thing
except
end;
end;
Users browsing this forum: No registered users and 1 guest