08-11-2011، 02:30 PM
ايجاد Memo با شكل غير مستطيلي : برای اینکار از برگه Standard يك Memo آورده و در رويداد OnCreat فرم خواهيم نوشت :
ايجاد Editbox با شكل غير مستطيلي :از برگه Standard يك Edit آورده و در رويداد OnCreat فرم خواهيم نوشت :
باز كردن دكمه Start ويندوز :يك Button آورده و در رويداد OnClick آن خواهيم نوشت :
منبع : شهر دلفی
کد:
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)منبع : شهر دلفی