وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٦/٢٢

ايجاد Memo با شكل غير مستطيلي : برای اینکار از برگه Standard يك Memo آورده و در رويداد OnCreat فرم خواهيم نوشت :

Setwindowrgn(memo1.handle,createroundrectrgn(2,2,memo1.width-2,memo1.height-2,15,15),true);

ايجاد Editbox با شكل غير مستطيلي :از برگه Standard يك Edit آورده و در رويداد OnCreatفرم خواهيم نوشت :

Setwindowrgn(edit1.handle,createroundrectrgn(2,2,edit1.width-2,edit1.height-2,15,15),true);

باز كردن دكمه Start ويندوز :يك Button آورده و در رويداد OnClick آن خواهيم نوشت :

Sendmessage(application.handle,wm_syscommand,sc_tasklist,0)

نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :