برنامــــج لقراءة القرآن مع * delphi * للمبتدئين*****

قراءة القرآن

هو برنامج لقراءة القرآن


الشـــــــــــــــرح

في هذا البرنامج سنتعرف على المكون media player

الخاص بقراءة mp3

تشغيـــــل البرنامج




نحمل الآيات في الملف ** koran ** ثم نشغل البرنامج

ونضغط على الآيــة في الأسفل

الكود


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
s1.SkinDirectory:=extractfilepath(application.ExeName)+'skin';
s1.SkinName:='wood';
s1.Active:=true;
form1.Caption:='tadjou---2012';
FileListBox1.Directory:=ExtractFilePath(Application.EXEName)+'koran' ;
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
WP1.url:=FileListBox1.FileName;
WP1.controls.play;

end;

end.






هناك مثال للفهـــم مع البرنامــــج




http://bitsor.com/files/19MHTXOB/koran.rar