Kleines rechnen problem

[EWeiss]

Zitat von Aphton:

Abort ist verknüpft mit dem Vcl-Message Handler.
Ich schätze mal, du arbeitest Non-Vcl.

Verwende statt ein Abort folgendes

Delphi-Quellcode:

begin
  SKAERO_SetTrackValue(SKAERO_GetMainItem(MainHandle, wp), SKAERO_GetTrackValue(SKAERO_GetMainItem(MainHandle, wp)-Difference);
  Exit;
end;

Jo non-vcl'e

So gehts mit ein paar einschränkungen aber das regel ich selbst.
Danke dir

Delphi-Quellcode:

        ID_TRACK_MASTERVOL:
        begin
          Difference := SKAERO_GetTrackValue(SKAERO_GetMainItem(MainHandle, wp)) - oldMasterVolume;
          oldMasterVolume := SKAERO_GetTrackValue(SKAERO_GetMainItem(MainHandle, wp));

          for IntI := 0 to 15 do
          begin
            if Sign(Difference) = 1 then
            begin
              if Volume[IntI] = 100 then
              begin
                SKAERO_SetTrackValue(SKAERO_GetMainItem(MainHandle, wp), Volume[IntI]);
                Result := 0;
                Exit;
              end;
            end else
            if Volume[IntI] = 0 then
            begin
              SKAERO_SetTrackValue(SKAERO_GetMainItem(MainHandle, wp), Volume[IntI]);
              Result := 0;
              Exit;
            end;
          end;

          for IntI := 0 to 15 do
          begin
            Volume[IntI] := Max(Min(Volume[IntI] + Difference, 100), 0);
            SKAERO_SetTrackValue(SKAERO_GetMainItem(MainHandle, ID_VOLUME_FIRST + IntI), Volume[IntI]);
          end;
        end;

gruss