Tmediaplayer Anfängerhilfe

[rayjray]

So sry ..das ich nochmal stress'...aber ich bekomm es nicht hin und dabei hab ich das nu schon 10 mal gemacht....ich kann zwar musik auswählen aber der mediaplayer macht nix...einfach alles nur grau und ich kann nichts anklicken von diesem!!

Hier mein kompletter Code...wenn ich sowas nicht darf dann sagts...SPAAAAM :twisted:
Ich weiss nicht weiter ich hab kein plan..schaut mal bidde nach und wegen dem execute oder accept mit den FileOpen2 weiss ich auch nicht genau was dahin soll!

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MPlayer, StdCtrls, ComCtrls, StdActns, ActnList, ImgList,
  ActnMan, ActnCtrls, ToolWin, ActnMenus, Buttons, ListActns, ExtActns;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    MonthCalendar1: TMonthCalendar;
    ActionMainMenuBar1: TActionMainMenuBar;
    ActionManager1: TActionManager;
    ImageList1: TImageList;
    DateiSpeichern: TAction;
    StatusBar1: TStatusBar;
    FileOpen1: TFileOpen;
    FileSaveAs1: TFileSaveAs;
    FilePrintSetup1: TFilePrintSetup;
    FileExit1: TFileExit;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    EditSelectAll1: TEditSelectAll;
    EditUndo1: TEditUndo;
    EditDelete1: TEditDelete;
    DateiNeu: TAction;
    HelpInfo: TAction;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    PrintDlg1: TPrintDlg;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    PsYcoPlay: TMediaPlayer;
    SpeedButton13: TSpeedButton;
    FileOpen3: TFileOpen;
    procedure DateiNeuExecute(Sender: TObject);
    procedure FileOpen1Accept(Sender: TObject);
    procedure DateiSpeichernExecute(Sender: TObject);
    procedure FileSaveAs1BeforeExecute(Sender: TObject);
    procedure FileSaveAs1Accept(Sender: TObject);
    procedure HelpInfoExecute(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    FileName: String;
  end;

var
  Form1: TForm1;

implementation

uses Info;

{$R *.dfm}

procedure TForm1.DateiNeuExecute(Sender: TObject);
begin
RichEdit1.Clear;
FileName := 'NoName.txt';
StatusBar1.Panels[0].Text := FileName;
end;

procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
FileName := FileOpen1.Dialog.FileName;
StatusBar1.Panels[0].Text := FileName;
end;

procedure TForm1.DateiSpeichernExecute(Sender: TObject);
begin
If (FileName = 'NoName.txt') then
      FileSaveAs1.Execute
else
    RichEdit1.Lines.SaveToFile(FileName);
end;

procedure TForm1.FileSaveAs1BeforeExecute(Sender: TObject);
begin
FileSaveAs1.Dialog.InitialDir := ExtractFilePath(FileName);
end;

procedure TForm1.FileSaveAs1Accept(Sender: TObject);
begin
RichEdit1.Lines.SaveToFile(FileSaveAs1.Dialog.FileName);
FileName := FileSaveAs1.Dialog.FileName;
StatusBar1.Panels[0].Text := FileName;
end;

procedure TForm1.HelpInfoExecute(Sender: TObject);
begin
AboutBox.ShowModal;
end;

end.

[alcaeus]

Hi rayjray,

bitte füg die [delphi]-Tags hinzu, das hier kann man niemandem antun :roll:

Greetz
alcaeus

[edit]Schneller :tongue: :mrgreen:[/edit]

[Matze]

Bitte setze um deinen Code die [delphi]-Tags. ;)

:twisted: Diesmal war Alcaeus schneller...

[Matze]

Für dich im Anhang mal ein ganz simples Beispel ohne Playlist & Co, damit du siehst, wie einfach es ist. ;)

[rayjray]

Erstmal ein überkrasses fettes danke Matze.... :dp:

an euch natürlich auch...jeder von euch!

ICH HABS juhuuuu

also nochmal zu meinen fehlern, falls interesse besteht für hilfe an anderen.

ich habe 1. nichtmal den opendialog gehabt d.h. ich wusste nichtmal das -geschweige denn wo - es den gab!
2. leider weiss ich noch nichtmal die einfachsten befehle..aber ihr seid auch da und helft echt superschnell ^^*fg*
3. dein anschauliches mp matze war der schlüssel zu meinem fehler da ich dachte ich müsste es mit dem actionmanager machen was ja nicht der fall war!

nunja für mein 1. kleines projekt bin ich trotz allem recht zufrieden!!!

DANKE EUCH JUNGS :hello:

[rayjray]

ist es möglich den progressbar....als anzeige für den abspielstatus des liedes laufen zu lassen?

[rayjray]

dazu kommt noch das ich den aktuellen namen des sägers in einem edit haben möchte

weiss das ich den befehl

eedit1.text := FileName;

oder für ein label :

Label1.Caption := FileName

nehmen kann....wo genau muss der hin??
ich denke mir das so...ein edit erstellen ....darauf doppelklicken und da das dann eingeben??

[rayjray]

hab den schon hinbekommen..

danke für eure ganzen hilfstellungen!

Wie sagt man wenn ein thread beendet ist?

THREAD CLOSED! :twisted:

[Beckman]

Zitat:

Zitat von rayjray

ist es möglich den progressbar....als anzeige für den abspielstatus des liedes laufen zu lassen?

wie hast du das geloest?

[rayjray]

Ne digga ich meinte das mit der listbox..also den namen des sägers!!

:wink:

wenns aber geht..sagt bescheid ^^