Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: (D7) Memp Mediaplayer anpassen (Vorspulen)

    Delphi
    by Luckie, 30. Jul 2018
  Autsch:
  procedure TForm1.pb1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  i : integer;
  begin
  Form1.Caption := IntToStr(round(X / (pb1.Width / pb1.Max)));
  Nimm das Form1 aus dem Code raus. pb1MouseDown ist doch schon eine Methode von TForm1. Man sollte es im Code nicht noch mal referenzieren. Und wenn es doch sein muss, nimm Self.