[Amin_Mansouri]

ايجاد 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)

منبع : شهر دلفی