السلام عليكم
أسعد الله أوقاتكم أحباب
كيف نجعل البرنامج عند تشغيله يصدر صوتا مثل الوندوز
وكيف نجعل عند ضغط أي زر يصدر صوتا
وشكرا
السلام عليكم
أسعد الله أوقاتكم أحباب
كيف نجعل البرنامج عند تشغيله يصدر صوتا مثل الوندوز
وكيف نجعل عند ضغط أي زر يصدر صوتا
وشكرا
playSound ولاتنسى اضافة mmsystem في لمزيد من التفاصيل راجع Help دلفي
PlaySound(PChar('SYSTEMSTART'), 0, SND_ASYNC);والسلام عليكم ورحمة الله
شكرا ولكن هذا اجابة صوت البرنامج أم البوتون
اقتباسشكرا ولكن هذا اجابة صوت البرنامج أم البوتون
اخي العزيز تحتاج الى دراسة دلفي قبل كل شيء واسئلتك ستسمر الى ما نهاية لذلك انصحك بدراسة اللغة اولا قبل اي شيء
اخر هناك كتاب بالعربي ستجده في المواضيع المثبتة
اقرا لتتعلم بعض الشي ثم اسال كم تريد
وعليكم السلام ورحمة الله وبركاته..
هذا هو رابط الكتاب
http://www.4shared.com/file/27631454/822ed...hi-4-Bible.html
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
مثال العمل مع الصوت
http://www.goldfaq.ru/lofiversion/index.php/t444.html
unit DTNTMMPlayer;
interface
uses WinTypes, WinProcs, Messages, SysUtils, Classes, Controls,
Forms, Graphics, Mplayer, mmsystem;
type
TDTNTMMPlayer = class(TMediaPlayer)
private
{ Private fields of TDTNTMMPlayer }
{ Pointer to application's OnChangeTempoError handler, if any }
FOnChangeTempoError : TNotifyEvent;
{ Pointer to application's OnTempoChanged handler, if any }
FOnTempoChanged : TNotifyEvent;
{ Private methods of TDTNTMMPlayer }
{ Method to set variable and property values and create objects }
procedure AutoInitialize;
{ Method to free any objects created by AutoInitialize }
procedure AutoDestroy;
protected
{ Protected fields of TDTNTMMPlayer }
{ Protected methods of TDTNTMMPlayer }
{ Method to generate OnChangeTempoError event }
procedure ChangeTempoError(Sender : TObject); virtual;
{ Method to generate OnTempoChanged event }
procedure TempoChanged(Sender : TObject); virtual;
procedure Loaded; override;
procedure Paint; override;
public
{ Public fields%
تم تعديل هذه المشاركة بواسطة romanof في 1 أبريل 2008 في 02:45
أضاعوني وأي فتى أضاعـوا * * * ليـوم كــريهـة وســـداد ثغــــر
وخـــــلونـي ومعتـرك المنايـا * * * وقد شـــرعوا أسنــتهم لنحـري
كأني لم أكــــــن فيهـم وسيطـا * * * ولم تك نســبتي في آل عمــرو
أجرر في الجـــوامع كـل يـوم * * * ألا لله مظــــلمتـي وهـصـــري
عسى الملك المجيب لمن دعاه * * * سينجيني فيعلم كيــف شكـري
فأجـــزي بالكرامـة أهـل ودي * * * وأجزي بالضـغينة أهل ضري
merci