Probleme mit Callback Function

[Seren200018]

leider ja

[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.

[Seren200018]

Hat Irgendjemand eine Idee warum der Timer nicht auslöst oder eine Möglichkeit trotzdem das selbe Ergebniss zu erreichen.

Das Problem ist ohne Timer kann es zu Grafikfehlern kommen da scheinbar die Übertragung gestört wird ans Display.