-
أنشي مشروع جديد وضع على الفورم زرين
غير الخاصة caption للأول بالقيمة "خروج" وللآخر "تشغيل الفيروس"
اعط الحدث OnClick لهما الأمر التالي
;close
اعط الحدث OnMouseMove للزر خروج الأسطر التالية
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
var
x,y:Integer;
begin
x:=random(Form1.Wedth);
y:=random(Form1.Height);
Button1.Lift:=int(x/Button1.Wedth);
Button1.Top:=int(y/Button1.Height);
;end
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
اجعل الفورم يملأ الشاشة واخفي شريط العنوان وضغ عنصر label وغير الخاصة Caption لأي عبارة تريد فيها ارباك للمستخدم مثلا ضع العبارة "سيعمل الفيروس بعد عشر ثوان اضغط رز الخروج بسرعة"
أنشيء الحدث OnClose للفورم نفسه وضع الأوامر التالية
<BLOCKQUOTE> <font> كود: </font> <div align="ltr"> <center> <table border="0" width="80%" dir="ltr" bgcolor=="#000000"> <tr> <td width="100%"> <pre> <font color="#ffffff">
MessageBox("هاها كانت مجرد مزحة");
</font> </pre> </td> </tr> </table> </center> </div> </BLOCKQUOTE>
ما رأيكم يا مبرمجين
------------------
أبو ماجد الصارم
azzozhsn@hotmail.com
[b]<small><small>[ تم تعديل الموضوع بواسطة أبو ماجد الصارم يوم 21-05-2000]
ضوابط المشاركة
- لا تستطيع إضافة مواضيع جديدة
- لا تستطيع الرد على المواضيع
- لا تستطيع إرفاق ملفات
- لا تستطيع تعديل مشاركاتك
-
قوانين المنتدى
أضف موقعك هنا|
اخبار السيارات |
حراج |
شقق للايجار في الكويت |
بيوت للبيع في الكويت |
دليل الكويت العقاري |
مقروء |
شركة كشف تسربات المياه |
شركة عزل اسطح بالرياض |
عزل فوم بالرياض|
عزل اسطح بالرياض |
كشف تسربات المياة بالرياض |
شركة عزل اسطح بالرياض
