Jawad Loutf

يا أخ super rio هذا الكود الذي كتبته يعمل و لكن يمكن أن يكون هناك خطأ في مسار الملف و يجب التأكد من أن تضع مسار الملف المراد حذفه و ليس اسم الملف فقط.

السلام عليكم أنا أعتذر جداً جداً جداً -------- أنا لم أقصد الإساءة للنادي أو أعضاء النادي لكن أنا أعرف فادي شخصياُ و هو من علمني البرمجة على الدلفي (في بيناتنا مزح)وكنت أسأل عن أنه ماذا يقصد من كلمة المؤشرات . و أنا أكرر اعتذاري و شكراً.

السلام عليكم .... شلونك يا فادي كيف الأحول ....عفواً الأحوال إذا كنت حابب تعرف جواب لسؤالك .....اسمع : 1 - أنا مافهمت شي من السؤال (ما المقصود من المؤشرات). 2-إذا كنت أنا فهمان السؤال ..أكيد ما حأعرف الجواب . 3- و إذا عرفت الجواب ..أكيد ما حأحكي . 4 -و إذا حكي…

السلام عليكم ..... + أحتاج إلى كود لرسم الموجات الصوتية للميديا بلير الموجود مع الدلفي . + و فرد مرة أريد كود لمعرفة وقت الملف الصوتي أو الفيديو في الميديا بلير . و شكراً سلفاً

يمكنك من خلال هذا الكود التحكم بحجم الصوت داخل البرنامج فقط //Uses// , StdCtrls, MPlayer, ExtCtrls, Gauges, ComCtrls,inifiles,mmsystem, Buttons; //TrackBar// case TrackBar1.Position of 0:waveOutSetVolume(0,$00000000); 1:waveOutSetVolume(0,$10001000); 2:waveOut…

هذا الكود جميل يجعل مؤشر الماوس يرتجف Timer Interval := 1; procedure TForm1.Timer1Timer(Sender: TObject); var A:TPoint; B:integer; begin A:=Mouse.CursorPos; B:=random(4); case B of 0:A.X := Mouse.CursorPos.X+3; 1:A.X := Mouse.CursorPos.X-3; 2:A.Y := Mouse.Curs…

Form1.TransparentColor := true; Form1.TransparentColorValue := clred; var X,Y:integer; begin X:=0; Y:=0; while Y < Form1.Height do begin X:=X+3; if X > Form1.Width then begin X:=0; Y:=Y+3; end; Canvas.Pixels[x,y] := clred; end; end;

هذا البرنامج صغير و مضحك و مفتوح المصدر هدية مني إلى أعضاء النادي Button.zip

شكراً يا أخي محمد عبد العزيز الكود اشتغل و كل عام و أنت بخير في عيد الأضحى المبارك :D

السلام عليكم (إذا ما عرفتوني فأنا عضو جديد) كيف أستطيع تغيير شكل مؤشر الماوس إلى شكل(صورة cur)في برنامجي