+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: چند ترفند جالب در دلفی (/showthread.php?tid=672)
چند ترفند جالب در دلفی - Amin_Mansouri - 08-11-2011
ايجاد 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)منبع : شهر دلفی