(D7) Memp Mediaplayer anpassen (Vorspulen)

[Luckie]

Autsch:

Delphi-Quellcode:

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 .