mojo

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; if (Sender is TDBGrid) then TDBGrid(Sender).Perform(WM_KeyDown,VK_Tab,0) else Perform(Wm_NextDlgCtl,0,0); end; end; Don't forget to Set the form's KeyPrevie…

لتملاء الـ combobox من الجدول وتاخد كل المعطيات إستعمل هذا : while not tbl.eof do begin ComboBox1.items.add(tbl.fieldbyname('n').asstring); tbl.next; end; اما سؤالك الثاني فيمكنك ان تستعمل الدلة beep procedure Click; begin beep; end;

Try : 1 : Monitor_Off // إطفاء الشاشة SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2); 2 : Monitor_On // إشعال الشاشة SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

اخي عبد العزيز هلا غيرت في الكود او ساعدتني بكود يمكن ان يقوم بالمطلوب من فظلك . وشكرا

اخي عبد العزيز البحث يكون على ملفات *.htm , *.html

See here : http://delphi.about.com/od/internetintranet/l/aa020304a.htm

ياإخواني bachirk و source code مشكلتي هي البحث على كلمة في ملف وليس في نص امامي او على Richedit , و البحث ان يظهر حتى الكلمات العربية . شكرا

اخي Cipher هل إذا عرفنا الـ Encoding نقوم بالتحويل Conversion لكي تنجح العملية ام ماذا ؟

اخي العزيز عن اي مكون تتحدث هل هو الـ ArMan

شكرا اخي العزيز هل من مساعدة في ذلك

ياخي العزيز : الخطاء : رقم $21 هو من فئة ERRCAT_SYSTEM (system related fatal error) وهو Cannot load IDAPIxx.DLL. خطاء او لا يمكن تحميل المكتبة IDAPIxx.DLL انظر هنا http://bdn1.borland.com/article/0,1410,15283,00.html وفي اغلب الاحيان هذا يعود الى: 1- ان المسار…

up

OK here it is , Search.zip

لقد كنت استعمل هذا الكود للبحث عن كلمة في ملفات , ولكن المشكلة اليوم هي ان البحث عن كلمات بالغة العربية لاتظهر يعنى البحث لايعطي اي نتيجة رغم انني استعملت بعض وحدات TntSysUtils ولكن بدون نتيجة فهل من مساعدة من فظلكم وشكرا : هذا هو الكود : function ScanFile(con…