Memory-Spiel: Ideen

[DeddyH]

Nach dem MediaPlayer1.Open steht MediaPlayer1.Position auf 0, folglich auch die Trackbar. Was ist daran verwunderlich? BTW: bist Du sicher, dass der gesamte Code ab der 2. Zeile nicht in einen begin-end-Block gehört?

[XardasLP]

Jo stimmt, man klickt danach ja noch bei dem MediaPlayer auf Play ^^

Delphi-Quellcode:

procedure TFormSpiel.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
TimerMusik.Enabled := False;
MediaPlayer1.Close;
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
TimerMusik.Enabled := True;
TrackBarMusik.Max := MediaPlayer1.Length;
TrackBarMusik.Position := MediaPlayer1.Position;
end;
end;

Bei der Trackbar Bewegung habe ich jetzt im 1. Moment an einen Timer gedacht.

Delphi-Quellcode:

procedure TFormSpiel.TimerMusik2Timer(Sender: TObject);
var i: integer;
begin
TrackBarMusik.Max := MediaPlayer1.Length;
for i := 1 to MediaPlayer1.Length do begin
TrackBarMusik.Position := MediaPlayer1.Position+1;
end;
end;

[XardasLP]

Delphi-Quellcode:

private
  StartTime: TTime;


procedure TFormSpiel.TimerZeitTimer(Sender: TObject);
begin
  LabelZeit.Caption := FormatDateTime('hh:nn:ss',StartTime);
end;

Es erscheint 00:00:00, der Timer läuft ja dann weiter. Wieso zählt es bei einem Interval von 1 die Zahl nicht rauf ?

[DeddyH]

Ändert sich denn StartTime?

[XardasLP]

Habe erst den Code von Luckie genommen, der geht aber auch nicht.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
    StartTime: TTime;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := True;
  StartTime := Time;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(Time - StartTime);
end;

[XardasLP]

Bräuchte mal eine Stoppuhr die startet sobald eine Karte zum 1. Mal aufgedeckt wird.
Format soll sein hh:nn:ss also 00:00:00.

[stahli]

Besser wären genauere Formulierungen.

Willst Du eine laufende Stoppuhr anzeigen oder nur die Zeit messen?

Für letzteren Fall:

Delphi-Quellcode:

var
  Startzeit, Zeit: TDateTime;
...
  Startzeit := Now;
...
  Zeit := Now - Startzeit;

Neuerdings gibt es eine TStopwatch, aber nicht in älteren Delphis.