سيف الدين 2

يمكن تحميل من هنا http://www.fast-report.com/en/search/index...eport#nav_start

اولاً عليك ايجاد الملف ( SWFLASH.OCX ). و من ثم من خلال دلفي اذهب الى Component--> Import ActiveX Control . اختر الملف ( SWFlash.OCX ) في حال لم يكن ضمن القائمة العلية و قم باستراده... عند الانتهاء من استيراده، ستجده ضمن صفحة ActiveX في دلفي باسم TShockWaveFla…

بارك الله فيك(البارودي) ولكن الكتاب لم يعمل معي -------------------------- :unsure:

جزاك الله كل خير وبارك الله فيك

شكراً وبارك الله فيكوم :rolleyes:

إسم الكتاب : Easy Delphi for Beginners الوصف : ديلفي السهل للمبتدئين الحجم : 191KB تمت إضافتة من قبل العضو :سيف الدين Easy Delphi for Beginners.pdf

فتح وأغلاق CD uses MMSystem فتح mciSendString('Set cdaudio door open wait', nil, 0, 0); أغلاق mciSendString('Set cdaudio door closed wait', nil, 0, 0);

بارك الله فيك

سبحان الله

نعم لقد وضعتها في المكان المخصصة وبارك الله فيكوم أفكار سريعة, مجموعة شفرات صغيرة وفاعله لدلفي

تحريك Label من اليمن الي اليسر if Label1.Left<600 then begin Label1.Left:=Label1.Left+1; end else Label1.Left:=-214

تحريك الفورم type TForm1 = class(TForm) procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.WMNCHitTest(var M: TWMN…

يقبل الارقم فقط والايقبل الحروف procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If not (Key in ['0'..'9', #18]) then Key := #13; end; وهذا يقبل الحروف الكبير If not (Key in ['A'..'Z', #18]) then Key := #13; end وهذا يقبل الحروف الصغير If …

كيفية ادخال الصورة من السكنر عن طريق الدلفي اذهب الى component ثم الى import activX control ثم ومن القائمة اختر ادات تحكم بإلتقاط الصور ، تجد ( Timgscan) اضغط install ثم اذهب في قائمة ادوات دلفي الى ActivX نزلها على الفورة ، اضغط عليها ضغطتين سريعتين ستجد-- sc…

بسم الله الرحمن الرحيم بعض افكر الجميل في دلفي قلب ازر الماوس من اليمن الي اليسر SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 1, NIL, 0); إعادة أزرار الماوس الي مكان عليه SystemParametersInfo(SPI_SETMOUSEBUTTONSWAP, 0, NIL, 0); اخفاء سطح المكتب procedure Deskt…

هذا نص الرسائل الخطاء مع الشكر ....

ارجو ان ينال اعجبكوم

تحريك Label من اليمن الي اليسر if Label1.Left<600 then begin Label1.Left:=Label1.Left+1; end else Label1.Left:=-214

بارك الله فيك أخي مراد.......

تحريك الفورم type TForm1 = class(TForm) procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.WMNCHitTest(var M: TWMN…