Probleme mit Callback Function

[Seren200018]

soo ich habe einen kleinen Workaround gemacht.
Das Problem war das der Timer tmrAppletButtons aus irgend einem grund nicht gestartet wurde bzw auslöste.

Ich habe darum die Funktion

Delphi-Quellcode:

procedure TG15.myCallbackSoftButtons(dwButtons:integer);
begin
  ButtonEvent := dwButtons;
  tmrAppletButtons.Enabled := false;
  tmrAppletButtons.Enabled := true;
end;

ersetzt durch

Delphi-Quellcode:

procedure TG15.myCallbackSoftButtons(dwButtons:integer);
begin
  if (dwButtons <> buttonevent) then
    begin
      buttonevent := dwButtons;
      appletButtonEvent(dwButtons);
      {aus Kompatibilitaetsgruenden geaendert
      tmrAppletButtons.Enabled := false;
      tmrAppletButtons.Enabled := true;}
    end;
end;

und dazu noch in die Funktion Start die Zeile
      buttonevent := 0; Das funktioniert zum glück erst mal.