by ' ضع هذا الكود في الفورم
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
DoEvents
BlockInput True
Sleep 1000
BlockInput False
End Sub
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
DoEvents
BlockInput True
Sleep 1000
BlockInput False
End Sub
» ترحيب بالأعضاء
» برنامج يعلمك لغة الدلفي بشكل مثير
» دليل هاتف الدلفي
» سلسلة فيبوناتشي
» كود جميل ورائع جربه واعرف بنفسك ماذا يعمل
» المبرمجون مستائون من الواجهة الرسومية لويندوز ٨ (Windows 8)(نسخة المطورين)
» حزيرة للعلماء
» اسباب تجعل الكمبيوتر يعمل بشكل بطيء
» دروس المبتدئين.....الدرس الأول (تعليم القص)