tag:blogger.com,1999:blog-57621102010-03-12T01:19:05.042+01:00سوال و جواب در زمینه برنامه نویسی با زبان دلفیAli Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.comBlogger93125delphi-teacherhttp://feedburner.google.comtag:blogger.com,1999:blog-5762110.post-1155112660211505082006-08-09T10:35:00.000+02:002006-08-09T10:38:25.353+02:002006-08-09T10:38:25.353+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0یک کتاب خوب در زمینه دلفی 2005 شما می توانید این کتاب را براحتی از همین سایت سفارش بدهید. برای شما بصورت رایگان ارسال میشه. کتاب دلفی 2005 <p><a href="http://feedads.g.doubleclick.net/~a/rF7DKjOJ_ajEws_4hyT83DkGbkU/0/da"><img src="http://feedads.g.doubleclick.net/~a/rF7DKjOJ_ajEws_4hyT83DkGbkU/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/rF7DKjOJ_ajEws_4hyT83DkGbkU/1/da"><img src="http://feedads.g.doubleclick.net/~a/rF7DKjOJ_ajEws_4hyT83DkGbkU/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=O0wUDOZYoD8:dOLTITegLks:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=O0wUDOZYoD8:dOLTITegLks:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=O0wUDOZYoD8:dOLTITegLks:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=O0wUDOZYoD8:dOLTITegLks:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=O0wUDOZYoD8:dOLTITegLks:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=O0wUDOZYoD8:dOLTITegLks:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=O0wUDOZYoD8:dOLTITegLks:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/O0wUDOZYoD8" height="1" width="1"/>http://delphi.dilmaj.net/2006/08/2005.htmltag:blogger.com,1999:blog-5762110.post-1153386606471350862006-07-20T11:10:00.000+02:002006-09-10T07:46:54.186+02:002006-09-10T07:46:54.186+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0روشهاي بالا بردن Performance در Query ها --------------------------------------------------------------------------------1-تا جائيكه امكان دارد سعي كنيد از عبارتWHERE در دستورات SELECT خود استفاده كنيد.2- از Inner Join استفاده نكنيد.3-تا حد امكان از بکارگيري Cursor اجتناب كنيد.4-در مورد اينكه آيا SELECT شما واقعا به DISTINCT نياز دارد يا نه توجه كنيد . در جايي كه نياز نيست از آن به هيچ عنوان <p><a href="http://feedads.g.doubleclick.net/~a/6Sm28gL4wnYLXLhAROqfY9QMmlE/0/da"><img src="http://feedads.g.doubleclick.net/~a/6Sm28gL4wnYLXLhAROqfY9QMmlE/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/6Sm28gL4wnYLXLhAROqfY9QMmlE/1/da"><img src="http://feedads.g.doubleclick.net/~a/6Sm28gL4wnYLXLhAROqfY9QMmlE/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=8qTINTi_Wzo:5KdYqwhANcg:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=8qTINTi_Wzo:5KdYqwhANcg:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=8qTINTi_Wzo:5KdYqwhANcg:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=8qTINTi_Wzo:5KdYqwhANcg:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=8qTINTi_Wzo:5KdYqwhANcg:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=8qTINTi_Wzo:5KdYqwhANcg:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=8qTINTi_Wzo:5KdYqwhANcg:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/8qTINTi_Wzo" height="1" width="1"/>http://delphi.dilmaj.net/2006/07/performance-query.htmltag:blogger.com,1999:blog-5762110.post-1152972225186410132006-07-15T16:01:00.000+02:002006-07-15T16:07:38.366+02:002006-07-15T16:07:38.366+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0گاهی نیاز داریم که نوار اسکرول را در برنامه جابجا کنیم تا بتوانیم یک متن بزرگ را نمایش دهیم. اینکار با کمک موس بسادگی انجامپذیر است . داینجا می خواهم سورس کدی را ارائه دهم که اینکار را از داخل برنامه دلفی انجام می دهد.procedure MemoScrollDown(Memo: TMemo) ;var ScrollMessage:TWMVScroll; i:integer;begin ScrollMessage.Msg:=WM_VScroll; for i := 0 to Memo.Lines.Count do begin <p><a href="http://feedads.g.doubleclick.net/~a/5tdVWlvxmo7laxMp-x7vEOnJjUM/0/da"><img src="http://feedads.g.doubleclick.net/~a/5tdVWlvxmo7laxMp-x7vEOnJjUM/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/5tdVWlvxmo7laxMp-x7vEOnJjUM/1/da"><img src="http://feedads.g.doubleclick.net/~a/5tdVWlvxmo7laxMp-x7vEOnJjUM/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=x30gNojMFyA:OHc_hmgYGnY:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=x30gNojMFyA:OHc_hmgYGnY:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=x30gNojMFyA:OHc_hmgYGnY:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=x30gNojMFyA:OHc_hmgYGnY:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=x30gNojMFyA:OHc_hmgYGnY:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=x30gNojMFyA:OHc_hmgYGnY:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=x30gNojMFyA:OHc_hmgYGnY:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/x30gNojMFyA" height="1" width="1"/>http://delphi.dilmaj.net/2006/07/scroll.htmltag:blogger.com,1999:blog-5762110.post-1149322508829649612006-06-03T10:13:00.000+02:002006-06-03T10:15:10.240+02:002006-06-03T10:15:10.240+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com3با استفاده از سورس کد زیر می توانید یک آیکون را از روی صفحه دسکتاپ ویندوز پنهان کنید یا آنرا مجددا نمایش دهید.procedure ShowDesktop(const YesNo : boolean) ;var h : THandle;begin h := FindWindow('ProgMan', nil) ; h := GetWindow(h, GW_CHILD) ; if YesNo = True then ShowWindow(h, SW_SHOW) else ShowWindow(h, SW_HIDE) ;end; <p><a href="http://feedads.g.doubleclick.net/~a/PL59ahm4EuS9ZTl6HWgnOcZtECY/0/da"><img src="http://feedads.g.doubleclick.net/~a/PL59ahm4EuS9ZTl6HWgnOcZtECY/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/PL59ahm4EuS9ZTl6HWgnOcZtECY/1/da"><img src="http://feedads.g.doubleclick.net/~a/PL59ahm4EuS9ZTl6HWgnOcZtECY/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=ycw_-OXAWps:wUHATiypjVY:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=ycw_-OXAWps:wUHATiypjVY:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=ycw_-OXAWps:wUHATiypjVY:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=ycw_-OXAWps:wUHATiypjVY:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=ycw_-OXAWps:wUHATiypjVY:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=ycw_-OXAWps:wUHATiypjVY:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=ycw_-OXAWps:wUHATiypjVY:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/ycw_-OXAWps" height="1" width="1"/>http://delphi.dilmaj.net/2006/06/blog-post.htmltag:blogger.com,1999:blog-5762110.post-1143619837154772552006-03-29T10:06:00.000+02:002006-06-18T10:06:23.403+02:002006-06-18T10:06:23.403+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.comسورس کد زیر می تواند اینکار را برای شما انجام دهد.در یک برنامه جدید یک دکمه بگذارید و روتین زیر را برای رویداد کلیک آن بنویسید.Place a TButton named "OpenBinButton" on a formuses ShlObj, ShellAPI, ... ; Place a TButton named "OpenBinButton" on a form, handle its OnClick event as: procedure TRecycleBinForm.OpenBinButtonClick(Sender: TObject) ;var recycleBinPIDL: PItemIDList; execInfo: <p><a href="http://feedads.g.doubleclick.net/~a/HR7Usu9ASNX_tdaH8BR8Fy4AUfI/0/da"><img src="http://feedads.g.doubleclick.net/~a/HR7Usu9ASNX_tdaH8BR8Fy4AUfI/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/HR7Usu9ASNX_tdaH8BR8Fy4AUfI/1/da"><img src="http://feedads.g.doubleclick.net/~a/HR7Usu9ASNX_tdaH8BR8Fy4AUfI/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=b3cqNVFy8kI:o3pVnEk_o6k:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=b3cqNVFy8kI:o3pVnEk_o6k:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=b3cqNVFy8kI:o3pVnEk_o6k:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=b3cqNVFy8kI:o3pVnEk_o6k:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=b3cqNVFy8kI:o3pVnEk_o6k:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=b3cqNVFy8kI:o3pVnEk_o6k:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=b3cqNVFy8kI:o3pVnEk_o6k:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/b3cqNVFy8kI" height="1" width="1"/>http://delphi.dilmaj.net/2006/03/blog-post.htmltag:blogger.com,1999:blog-5762110.post-1139471295393134902006-02-09T08:41:00.000+01:002006-02-09T08:48:15.406+01:002006-02-09T08:48:15.406+01:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0سورس کد زیر را می توانید برای دانلود یک فایل از طریق اینترنت استفاده نمائید.فراموش نکنید که در ابتدای برنامه حتما یونیت اشاره شده در ابتدای سورس را فراخوانی کنید.uses ExtActns, ...type TfrMain = class(TForm) ... private procedure URL_OnDownloadProgress (Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: <p><a href="http://feedads.g.doubleclick.net/~a/db563gETbAgJv2Ogl0iLQwJb6Ug/0/da"><img src="http://feedads.g.doubleclick.net/~a/db563gETbAgJv2Ogl0iLQwJb6Ug/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/db563gETbAgJv2Ogl0iLQwJb6Ug/1/da"><img src="http://feedads.g.doubleclick.net/~a/db563gETbAgJv2Ogl0iLQwJb6Ug/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=0SMuSw3SiQQ:QhfhoHc7Zn4:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=0SMuSw3SiQQ:QhfhoHc7Zn4:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=0SMuSw3SiQQ:QhfhoHc7Zn4:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=0SMuSw3SiQQ:QhfhoHc7Zn4:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=0SMuSw3SiQQ:QhfhoHc7Zn4:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=0SMuSw3SiQQ:QhfhoHc7Zn4:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=0SMuSw3SiQQ:QhfhoHc7Zn4:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/0SMuSw3SiQQ" height="1" width="1"/>http://delphi.dilmaj.net/2006/02/blog-post.htmltag:blogger.com,1999:blog-5762110.post-1138437985270437382006-01-28T09:42:00.000+01:002006-01-28T09:46:25.596+01:002006-01-28T09:46:25.596+01:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com1How could we get backup from our SQL Server in Delphi?تهیه بک آپ یا نسخه پشتیبان از بانک اطلاعاتی در دوره های زمانی خاض یکی از مهمترین بخشهای یک برنامه بانک اطلاعاتی است. یکی از بانکهای اطلاعاتی که در دلفی زیاد استفاده میشه SQL Server است که سورس زیر به شما کمک م یکنه تا بتونید از درون برنامه دلفی از بانک اطلاعاتی خودتان بک آپ بگیرید.function ConvertListItemsToMultiString(Items: TListItems; var S <p><a href="http://feedads.g.doubleclick.net/~a/FLBFgs2gW7DgJYM3HYrKcxWxALI/0/da"><img src="http://feedads.g.doubleclick.net/~a/FLBFgs2gW7DgJYM3HYrKcxWxALI/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/FLBFgs2gW7DgJYM3HYrKcxWxALI/1/da"><img src="http://feedads.g.doubleclick.net/~a/FLBFgs2gW7DgJYM3HYrKcxWxALI/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=1RjLE9tVRO0:-u52vtJE9qw:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=1RjLE9tVRO0:-u52vtJE9qw:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=1RjLE9tVRO0:-u52vtJE9qw:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=1RjLE9tVRO0:-u52vtJE9qw:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=1RjLE9tVRO0:-u52vtJE9qw:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=1RjLE9tVRO0:-u52vtJE9qw:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=1RjLE9tVRO0:-u52vtJE9qw:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/1RjLE9tVRO0" height="1" width="1"/>http://delphi.dilmaj.net/2006/01/blog-post.htmltag:blogger.com,1999:blog-5762110.post-1136643880989082152006-01-07T15:21:00.000+01:002006-01-07T15:24:41.063+01:002006-01-07T15:24:41.063+01:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0در اين کتاب برنامه نويسان دلفی و کايليکس جديدترين فن آوری دستيابی بانک های اطلاعاتی بورلند(dbExpress) را می آموزند. اين کتاب عناوينی از قبيل تنظيم يک بانک اطلاعاتی برای برنامه های بانک اطلاعاتی يک يا چند رديفی را دربرمی گيرد. در اين کتاب قطعه کدهای بسيار و برنامه های نمونه کوچکی همراه مفاهيم ارائه شده است. لینک خرید کتاب برنامه نویسی بانکهای اطلاعاتی دلفی 7نويسنده: اريک هالمنناشر: تخت سليمان قيمت <p><a href="http://feedads.g.doubleclick.net/~a/r_5tX-F5vd6pd_VXfYHPgPdxBOQ/0/da"><img src="http://feedads.g.doubleclick.net/~a/r_5tX-F5vd6pd_VXfYHPgPdxBOQ/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/r_5tX-F5vd6pd_VXfYHPgPdxBOQ/1/da"><img src="http://feedads.g.doubleclick.net/~a/r_5tX-F5vd6pd_VXfYHPgPdxBOQ/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=FuDa5MBrJys:7-CO6ZrJ6qI:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=FuDa5MBrJys:7-CO6ZrJ6qI:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=FuDa5MBrJys:7-CO6ZrJ6qI:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=FuDa5MBrJys:7-CO6ZrJ6qI:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=FuDa5MBrJys:7-CO6ZrJ6qI:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=FuDa5MBrJys:7-CO6ZrJ6qI:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=FuDa5MBrJys:7-CO6ZrJ6qI:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/FuDa5MBrJys" height="1" width="1"/>http://delphi.dilmaj.net/2006/01/7.htmltag:blogger.com,1999:blog-5762110.post-1135699919486228082005-12-27T17:08:00.000+01:002005-12-27T17:14:56.300+01:002005-12-27T17:14:56.300+01:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0How to change the string grid cell color?سورس کد زیر به شما کمک می کند که با استفاده از رویدادهای انتخاب یک سلول یا در زمان ایجاد تصویر سلول تغییرات مورد نظر شما در زمینه رنگ سلولها اعمال شود.type TGridCracker = Class( TStringgrid ); // required to access protected method Invalidaterow procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); <p><a href="http://feedads.g.doubleclick.net/~a/jT8JI5YcZSOvUX2d8JQftL_KeE0/0/da"><img src="http://feedads.g.doubleclick.net/~a/jT8JI5YcZSOvUX2d8JQftL_KeE0/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/jT8JI5YcZSOvUX2d8JQftL_KeE0/1/da"><img src="http://feedads.g.doubleclick.net/~a/jT8JI5YcZSOvUX2d8JQftL_KeE0/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=IcCHF3gHgPw:47B8w-J2M40:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=IcCHF3gHgPw:47B8w-J2M40:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=IcCHF3gHgPw:47B8w-J2M40:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=IcCHF3gHgPw:47B8w-J2M40:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=IcCHF3gHgPw:47B8w-J2M40:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=IcCHF3gHgPw:47B8w-J2M40:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=IcCHF3gHgPw:47B8w-J2M40:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/IcCHF3gHgPw" height="1" width="1"/>http://delphi.dilmaj.net/2005/12/blog-post.htmltag:blogger.com,1999:blog-5762110.post-1133334990923954192005-11-30T08:16:00.000+01:002005-11-30T08:20:08.496+01:002005-11-30T08:20:08.496+01:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0گاهی برای انتقال یک فایل بزرگ محدودیت پهنای باند داریم و نمی توانیم آنرا یکجا منتقل کنیم. در این زمیان با تقسیم فایل به قسمتهای کوچک و انتقال هر قسمت به مقصد و در نهایت ساختن فایل اصلی راه حل خوبی است.در حال حاضر برنامه های زیادی هستند که انتقال فایل از اینترنت را با این روش انجام می دهند و کاربران ایرانی هم بدلیل سرعت اینترنت در ایران از متقاضیان اینگونه برنامه ها هستند.نمونه این برنامه ها <p><a href="http://feedads.g.doubleclick.net/~a/HSIeu0KDq38_EAMoaSem2DHZuL0/0/da"><img src="http://feedads.g.doubleclick.net/~a/HSIeu0KDq38_EAMoaSem2DHZuL0/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/HSIeu0KDq38_EAMoaSem2DHZuL0/1/da"><img src="http://feedads.g.doubleclick.net/~a/HSIeu0KDq38_EAMoaSem2DHZuL0/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=zW2hg-87HjY:axsn27qd1aY:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=zW2hg-87HjY:axsn27qd1aY:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=zW2hg-87HjY:axsn27qd1aY:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=zW2hg-87HjY:axsn27qd1aY:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=zW2hg-87HjY:axsn27qd1aY:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=zW2hg-87HjY:axsn27qd1aY:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=zW2hg-87HjY:axsn27qd1aY:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/zW2hg-87HjY" height="1" width="1"/>http://delphi.dilmaj.net/2005/11/blog-post_30.htmltag:blogger.com,1999:blog-5762110.post-1133254796670078872005-11-29T09:59:00.000+01:002005-11-29T09:59:56.680+01:002005-11-29T09:59:56.680+01:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com4یکی از روشهای بسیار کارا در برنامه نویسی امکان استفاده از اکتیو ایکس در برنامه است که دلفی هم این امکان را در اختیار برنامه نویسان قرار داده است. مثلا فرض کنید شما می خواهید در برنامه خودان یک فایل پی دی اف را باز کرده و نمایش دهید. برای اینکار می توانید با وارد نمودن اکتیو ایکس مربوط به آکرویات ریدر در دلفی براحتی از تمام امکاناتی که در برنامه آکروبات ریدر دارید در برنامه دلفی خودتان استفاده <p><a href="http://feedads.g.doubleclick.net/~a/n30LuQ7ZY0ju9mDGBtIeerwDPWg/0/da"><img src="http://feedads.g.doubleclick.net/~a/n30LuQ7ZY0ju9mDGBtIeerwDPWg/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/n30LuQ7ZY0ju9mDGBtIeerwDPWg/1/da"><img src="http://feedads.g.doubleclick.net/~a/n30LuQ7ZY0ju9mDGBtIeerwDPWg/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=C4mPKC5MJB4:Iofx6lHRIkE:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=C4mPKC5MJB4:Iofx6lHRIkE:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=C4mPKC5MJB4:Iofx6lHRIkE:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=C4mPKC5MJB4:Iofx6lHRIkE:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=C4mPKC5MJB4:Iofx6lHRIkE:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=C4mPKC5MJB4:Iofx6lHRIkE:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=C4mPKC5MJB4:Iofx6lHRIkE:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/C4mPKC5MJB4" height="1" width="1"/>http://delphi.dilmaj.net/2005/11/blog-post_29.htmltag:blogger.com,1999:blog-5762110.post-1132125497821063342005-11-16T08:18:00.000+01:002005-11-16T08:21:25.776+01:002005-11-16T08:21:25.776+01:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0در API ویندوز مجموعه ای از توابع وجود دارند که با استفاده از آنها می توان تمام کارهای مربطو به تلفن و ارتباط برنامه از طریق تلفن را انجام داد. این مجموعه با نام TAPI شناخته شده است.برای استفاده از این مجموعه در دلفی در پروژه JEDI مجموعه ای قرار داده شده که افراد علاقه مند می توانند آنرا دانلود کرده و استفاده نمایند.برای دانلود می توانید به صفحه سایت JEDI در این زمینه مراجعه نمائید.ftp:// <p><a href="http://feedads.g.doubleclick.net/~a/BkgMi1Pvvc_ZaHNer2JKIzrMmRs/0/da"><img src="http://feedads.g.doubleclick.net/~a/BkgMi1Pvvc_ZaHNer2JKIzrMmRs/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/BkgMi1Pvvc_ZaHNer2JKIzrMmRs/1/da"><img src="http://feedads.g.doubleclick.net/~a/BkgMi1Pvvc_ZaHNer2JKIzrMmRs/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=d5T5kiStT0E:niVpDSiACkg:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=d5T5kiStT0E:niVpDSiACkg:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=d5T5kiStT0E:niVpDSiACkg:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=d5T5kiStT0E:niVpDSiACkg:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=d5T5kiStT0E:niVpDSiACkg:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=d5T5kiStT0E:niVpDSiACkg:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=d5T5kiStT0E:niVpDSiACkg:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/d5T5kiStT0E" height="1" width="1"/>http://delphi.dilmaj.net/2005/11/blog-post.htmltag:blogger.com,1999:blog-5762110.post-1129360032144727152005-10-15T09:07:00.000+02:002005-10-15T09:11:59.216+02:002005-10-15T09:11:59.216+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0Using the RunOnce Registry Keyگاهی نیاز داریم که یک برنامه فقط یکبار آنهم زمانی که ویندوز بالا می آید اجرا شده و در دفعات دیگر بالا آمدن ویندوز اجرا نشود. مثلا می خواهیم این برنامه در اولین بار بعد از نصب برنامه ما بر روی سیستم اجرا شده و تنظیمات خاصی را بر روی سیستم انجام دهد. برای اینکار در رجیستری ویندوز کلید خاصی وجود دارد که اگر درست تنظیم نمائیم اینکار را برای ما انجام می دهد. نمونه سورس کد <p><a href="http://feedads.g.doubleclick.net/~a/I7BeuaH7v0ca-9N0O1fZDtpyh2I/0/da"><img src="http://feedads.g.doubleclick.net/~a/I7BeuaH7v0ca-9N0O1fZDtpyh2I/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/I7BeuaH7v0ca-9N0O1fZDtpyh2I/1/da"><img src="http://feedads.g.doubleclick.net/~a/I7BeuaH7v0ca-9N0O1fZDtpyh2I/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=HkzpMJ4VtMo:fACyOhe6n0w:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=HkzpMJ4VtMo:fACyOhe6n0w:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=HkzpMJ4VtMo:fACyOhe6n0w:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=HkzpMJ4VtMo:fACyOhe6n0w:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=HkzpMJ4VtMo:fACyOhe6n0w:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=HkzpMJ4VtMo:fACyOhe6n0w:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=HkzpMJ4VtMo:fACyOhe6n0w:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/HkzpMJ4VtMo" height="1" width="1"/>http://delphi.dilmaj.net/2005/10/blog-post_15.htmltag:blogger.com,1999:blog-5762110.post-1128498411898979442005-10-05T09:46:00.000+02:002005-10-12T06:53:53.480+02:002005-10-12T06:53:53.480+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.comحتما در برنامه یاهو دیده اید که با زدن زنگ پنجره برنامه شروع به لرزش می کند. اگر می خواهید اینکار را در دلفی انجام دهید می توانید از سورس کد زیر استفاده نمائید.procedure WindowShake(wHandle: THandle) ;const MAXDELTA = 4; SHAKETIMES = 500;var oRect, wRect :TRect; deltax : integer; deltay : integer; cnt : integer; dx, dy : integer;begin //نگهداری محل اصلی پنجره GetWindowRect( <p><a href="http://feedads.g.doubleclick.net/~a/6zRrryE6r-JSOsDnEo6udS_Jp7E/0/da"><img src="http://feedads.g.doubleclick.net/~a/6zRrryE6r-JSOsDnEo6udS_Jp7E/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/6zRrryE6r-JSOsDnEo6udS_Jp7E/1/da"><img src="http://feedads.g.doubleclick.net/~a/6zRrryE6r-JSOsDnEo6udS_Jp7E/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BOBivPINAtM:ku0s5gdSwNk:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BOBivPINAtM:ku0s5gdSwNk:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=BOBivPINAtM:ku0s5gdSwNk:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BOBivPINAtM:ku0s5gdSwNk:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BOBivPINAtM:ku0s5gdSwNk:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BOBivPINAtM:ku0s5gdSwNk:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BOBivPINAtM:ku0s5gdSwNk:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/BOBivPINAtM" height="1" width="1"/>http://delphi.dilmaj.net/2005/10/blog-post.htmltag:blogger.com,1999:blog-5762110.post-1127891512392806162005-09-28T09:11:00.000+02:002005-09-28T09:12:41.556+02:002005-09-28T09:12:41.556+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0همانطور که می دانید لیست باکس فقط آیتمهای موجود و تعریف شده در خودش را نشان می دهد و امکان ویرایش آیتمها نیست. اما اگر شما در برنامه ای بخواهید امکان ویرایش آیتمهای لیست باکس را به کاربر بدهید چکار خواهید کرد؟ برنامه زیر روش انمجام اینکار را به شما نشان می دهد. استفاده از این روش برای همه کامپوننتهای دیگر هم جواب می دهد.ابتدا یک لیست باکس درون فرم خود قرار دهید و در تعریف فرم خود سورس زیر را <p><a href="http://feedads.g.doubleclick.net/~a/nNa1Zt7LzAnZuy7HIhCm89PGa6I/0/da"><img src="http://feedads.g.doubleclick.net/~a/nNa1Zt7LzAnZuy7HIhCm89PGa6I/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/nNa1Zt7LzAnZuy7HIhCm89PGa6I/1/da"><img src="http://feedads.g.doubleclick.net/~a/nNa1Zt7LzAnZuy7HIhCm89PGa6I/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=haYdX7HeKMk:rFAkH1f46T8:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=haYdX7HeKMk:rFAkH1f46T8:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=haYdX7HeKMk:rFAkH1f46T8:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=haYdX7HeKMk:rFAkH1f46T8:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=haYdX7HeKMk:rFAkH1f46T8:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=haYdX7HeKMk:rFAkH1f46T8:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=haYdX7HeKMk:rFAkH1f46T8:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/haYdX7HeKMk" height="1" width="1"/>http://delphi.dilmaj.net/2005/09/blog-post_28.htmltag:blogger.com,1999:blog-5762110.post-1127890736272640872005-09-28T08:58:00.000+02:002005-09-28T08:59:34.673+02:002005-09-28T08:59:34.673+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0کاری که باید انجام بشه اینه که روی رویداد مربوط به حرکت موس در لیست باکس برنامه زیر را بنویسیم.در این برنامه بسته به اینکه موس کجا قرار گرفته ، آیتم مربوط به لیست باکس فعال میشه.procedure TForm1.ListBox1MouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer) ;begin ListBox1.ItemIndex := ListBox1.ItemAtPos(Point(x,y), True) ;end; <p><a href="http://feedads.g.doubleclick.net/~a/QDz3KbZs4nwKUWJseM0HjD_GPI8/0/da"><img src="http://feedads.g.doubleclick.net/~a/QDz3KbZs4nwKUWJseM0HjD_GPI8/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/QDz3KbZs4nwKUWJseM0HjD_GPI8/1/da"><img src="http://feedads.g.doubleclick.net/~a/QDz3KbZs4nwKUWJseM0HjD_GPI8/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=rTRyUxDNFHc:4H9HVcVkvfI:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=rTRyUxDNFHc:4H9HVcVkvfI:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=rTRyUxDNFHc:4H9HVcVkvfI:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=rTRyUxDNFHc:4H9HVcVkvfI:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=rTRyUxDNFHc:4H9HVcVkvfI:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=rTRyUxDNFHc:4H9HVcVkvfI:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=rTRyUxDNFHc:4H9HVcVkvfI:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/rTRyUxDNFHc" height="1" width="1"/>http://delphi.dilmaj.net/2005/09/listbox.htmltag:blogger.com,1999:blog-5762110.post-1127575353728492882005-09-24T17:22:00.000+02:002005-09-24T17:22:34.883+02:002005-09-24T17:22:34.883+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0کامپوننت تقویم فارسی برای برنامه نویسان دلفی به طراح خوب این کامپوننت پیشنهاد می کنم که اسمی حرفه ای برای این کامپوننت خوب انتخاب کنند. داشتن یک اسم با معنی و حرفه ای فروش را افزایش خواهد داد. اینکه فقط اسم کامپوننت را بصورت اسم کلاس آن اعلام کنیم یا توضیح دهیم و اسم نگذاریم تاثیر منفی در فروش در طولانی مدت خواهد داشت. نقل از سایت رسمی این کامپوننت : راهکارهای تاريخ هجری شمسی پشتيبانی کامل <p><a href="http://feedads.g.doubleclick.net/~a/N-QtCf6585tA4YFpkS_roxRgAeg/0/da"><img src="http://feedads.g.doubleclick.net/~a/N-QtCf6585tA4YFpkS_roxRgAeg/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/N-QtCf6585tA4YFpkS_roxRgAeg/1/da"><img src="http://feedads.g.doubleclick.net/~a/N-QtCf6585tA4YFpkS_roxRgAeg/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=PmNPi3cK0C0:hfcOW6XR_gU:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=PmNPi3cK0C0:hfcOW6XR_gU:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=PmNPi3cK0C0:hfcOW6XR_gU:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=PmNPi3cK0C0:hfcOW6XR_gU:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=PmNPi3cK0C0:hfcOW6XR_gU:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=PmNPi3cK0C0:hfcOW6XR_gU:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=PmNPi3cK0C0:hfcOW6XR_gU:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/PmNPi3cK0C0" height="1" width="1"/>http://delphi.dilmaj.net/2005/09/blog-post_24.htmltag:blogger.com,1999:blog-5762110.post-1127131932140343832005-09-19T14:12:00.000+02:002005-09-19T14:12:12.193+02:002005-09-19T14:12:12.193+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com3یک کامپوننت مرورگر اینترنت در فرم برنامه بگذارید . در بخش تابع مربوط به ایجاد فرم سورس زیر را بنویسید. uses MSHTML; procedure TForm1.FormCreate(Sender: TObject) ; begin WebBrowser1.Navigate('http://delphi.webrah.com') ; end; در بخش مربوط به رویداد مرورگر اینترنتی هم سورس پائین را اضافه نمایئد. procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var <p><a href="http://feedads.g.doubleclick.net/~a/GNwmShDvBLejjZUwKXJwzPFzsDg/0/da"><img src="http://feedads.g.doubleclick.net/~a/GNwmShDvBLejjZUwKXJwzPFzsDg/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/GNwmShDvBLejjZUwKXJwzPFzsDg/1/da"><img src="http://feedads.g.doubleclick.net/~a/GNwmShDvBLejjZUwKXJwzPFzsDg/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BUQ_b5MMj9g:X3SXu6OJ7R8:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BUQ_b5MMj9g:X3SXu6OJ7R8:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=BUQ_b5MMj9g:X3SXu6OJ7R8:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BUQ_b5MMj9g:X3SXu6OJ7R8:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BUQ_b5MMj9g:X3SXu6OJ7R8:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BUQ_b5MMj9g:X3SXu6OJ7R8:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=BUQ_b5MMj9g:X3SXu6OJ7R8:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/BUQ_b5MMj9g" height="1" width="1"/>http://delphi.dilmaj.net/2005/09/blog-post_112713193214034383.htmltag:blogger.com,1999:blog-5762110.post-1127127054848645242005-09-19T12:50:00.000+02:002005-09-19T12:53:10.660+02:002005-09-19T12:53:10.660+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com4آموزش دلفیدر این سایت می توانید سورس کدهای مربوط به موارد زیر را با توضیحات کامل دانلود کرده و استفاده نمائید.استفاده از دیتابیس اکسز تو دلفی ترکیب دو تصویر حلقه در حال گردش طراحي فيلتر نگاتيو به دست آوردن رنگ (RGB) هر نقطه با حركت ماوس بر روي دسكتاپ يا هر جاي ديگه نمايش زمان و تاريخ به صورت خودكار در دلفي سياه و سفيد كردن تصوير با دلفيراستی اگر شما هم سایت می شناسید که سورس کد دلفی داره در اینجا <p><a href="http://feedads.g.doubleclick.net/~a/211zcFEI1mQnLsiFo55tQ6s01lk/0/da"><img src="http://feedads.g.doubleclick.net/~a/211zcFEI1mQnLsiFo55tQ6s01lk/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/211zcFEI1mQnLsiFo55tQ6s01lk/1/da"><img src="http://feedads.g.doubleclick.net/~a/211zcFEI1mQnLsiFo55tQ6s01lk/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=XDNwav7MTkI:vMM7cL0JI6I:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=XDNwav7MTkI:vMM7cL0JI6I:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=XDNwav7MTkI:vMM7cL0JI6I:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=XDNwav7MTkI:vMM7cL0JI6I:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=XDNwav7MTkI:vMM7cL0JI6I:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=XDNwav7MTkI:vMM7cL0JI6I:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=XDNwav7MTkI:vMM7cL0JI6I:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/XDNwav7MTkI" height="1" width="1"/>http://delphi.dilmaj.net/2005/09/blog-post_19.htmltag:blogger.com,1999:blog-5762110.post-1126946490784571312005-09-17T10:41:00.000+02:002005-09-17T10:45:03.976+02:002005-09-17T10:45:03.976+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0با سورس کد زیر می توانید لیست دستگاههای موجود در کامپیوتر را ببینید.کامپوننتهای زیر را اضافه کنید و در بخش مربوط به رویداد لیک دکمه خود سورس زیر را هم بنویسیدTMemoTButtonاینکه چطور میشه به یک پورت اطلاعات فرستاد یا اطلاعاتی را خواند را هم در مقالات بعدی توضیح خواهم داد.procedure TForm1.Button1Click(Sender: TObject) ;var istr: string; isize, j: dword;begin setlength(istr, 4000) ; isize := <p><a href="http://feedads.g.doubleclick.net/~a/Ybs9vFUEZzH2Ox9fOnyVW7p7328/0/da"><img src="http://feedads.g.doubleclick.net/~a/Ybs9vFUEZzH2Ox9fOnyVW7p7328/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/Ybs9vFUEZzH2Ox9fOnyVW7p7328/1/da"><img src="http://feedads.g.doubleclick.net/~a/Ybs9vFUEZzH2Ox9fOnyVW7p7328/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Q5E4QWNhF-U:y35CgaZcCCc:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Q5E4QWNhF-U:y35CgaZcCCc:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=Q5E4QWNhF-U:y35CgaZcCCc:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Q5E4QWNhF-U:y35CgaZcCCc:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Q5E4QWNhF-U:y35CgaZcCCc:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Q5E4QWNhF-U:y35CgaZcCCc:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Q5E4QWNhF-U:y35CgaZcCCc:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/Q5E4QWNhF-U" height="1" width="1"/>http://delphi.dilmaj.net/2005/09/blog-post.htmltag:blogger.com,1999:blog-5762110.post-1124255881643365602005-08-17T07:18:00.000+02:002005-08-17T07:18:01.676+02:002005-08-17T07:18:01.676+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com1گاهی شما می خواهید از درون برنامه خودتان فشرده شدن یک کلید را برای برنامه شبیه سازی نمائید بطوریکه انگار یک کاربر این کلید را فشرده است. در این روتین برای همه کلیدهائی که قابل نمایش هستند فق کافیست که کد اسکی آنها را به این روتین بدهید و برای کلیدهای شیفت یا کنترل بایستی متغیر مربوطه را تنظیم نمائید. Procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean) ; type <p><a href="http://feedads.g.doubleclick.net/~a/nrosIy1ElVoHWNLjYK9pjZmVglI/0/da"><img src="http://feedads.g.doubleclick.net/~a/nrosIy1ElVoHWNLjYK9pjZmVglI/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/nrosIy1ElVoHWNLjYK9pjZmVglI/1/da"><img src="http://feedads.g.doubleclick.net/~a/nrosIy1ElVoHWNLjYK9pjZmVglI/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=TnhM7Ybd4_U:Io7a7GQHN0k:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=TnhM7Ybd4_U:Io7a7GQHN0k:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=TnhM7Ybd4_U:Io7a7GQHN0k:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=TnhM7Ybd4_U:Io7a7GQHN0k:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=TnhM7Ybd4_U:Io7a7GQHN0k:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=TnhM7Ybd4_U:Io7a7GQHN0k:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=TnhM7Ybd4_U:Io7a7GQHN0k:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/TnhM7Ybd4_U" height="1" width="1"/>http://delphi.dilmaj.net/2005/08/blog-post_17.htmltag:blogger.com,1999:blog-5762110.post-1124079928049826292005-08-15T06:25:00.000+02:002005-08-15T06:30:02.323+02:002005-08-15T06:30:02.323+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com1procedure TForm1.FormCreate(Sender: TObject) ;begin ShowWindow(Application.Handle, SW_HIDE) ; SetWindowLong(Application.Handle, GWL_EXSTYLE, getWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW) ; ShowWindow(Application.Handle, SW_SHOW) ;end; <p><a href="http://feedads.g.doubleclick.net/~a/JGbVNQRqy-72yagMssffdbln04Y/0/da"><img src="http://feedads.g.doubleclick.net/~a/JGbVNQRqy-72yagMssffdbln04Y/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/JGbVNQRqy-72yagMssffdbln04Y/1/da"><img src="http://feedads.g.doubleclick.net/~a/JGbVNQRqy-72yagMssffdbln04Y/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Bi5oXMTq8SE:OfCIAwV06mA:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Bi5oXMTq8SE:OfCIAwV06mA:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=Bi5oXMTq8SE:OfCIAwV06mA:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Bi5oXMTq8SE:OfCIAwV06mA:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Bi5oXMTq8SE:OfCIAwV06mA:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Bi5oXMTq8SE:OfCIAwV06mA:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Bi5oXMTq8SE:OfCIAwV06mA:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/Bi5oXMTq8SE" height="1" width="1"/>http://delphi.dilmaj.net/2005/08/blog-post.htmltag:blogger.com,1999:blog-5762110.post-1121777080414524302005-07-19T14:44:00.000+02:002005-07-19T14:44:40.456+02:002005-07-19T14:44:40.456+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0شاید شما هم برای اینکه برنامه تان بتواند کامل د مناسب نمایش داده شود، نیاز دارید که در یک اندازه خاص از صفحه نمایش کار کنید. برای اینکار می توانید اندازه رزولوشن صفحه را در هنگام اجرا تغییر دهید. برنامه زیر به شما کمک خواهد کرد تا با کمک API ویندوز اینکار را در دلفی انجام دهید function SetScreenResolution(Width, Height: integer): Longint; var DeviceMode: TDeviceMode; begin with <p><a href="http://feedads.g.doubleclick.net/~a/fh4e9DCBdeTLPZ2rO6tBGZb5WcY/0/da"><img src="http://feedads.g.doubleclick.net/~a/fh4e9DCBdeTLPZ2rO6tBGZb5WcY/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/fh4e9DCBdeTLPZ2rO6tBGZb5WcY/1/da"><img src="http://feedads.g.doubleclick.net/~a/fh4e9DCBdeTLPZ2rO6tBGZb5WcY/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Pxe7-3zhTdc:dIqe7qoFTb8:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Pxe7-3zhTdc:dIqe7qoFTb8:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=Pxe7-3zhTdc:dIqe7qoFTb8:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Pxe7-3zhTdc:dIqe7qoFTb8:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Pxe7-3zhTdc:dIqe7qoFTb8:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Pxe7-3zhTdc:dIqe7qoFTb8:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=Pxe7-3zhTdc:dIqe7qoFTb8:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/Pxe7-3zhTdc" height="1" width="1"/>http://delphi.dilmaj.net/2005/07/blog-post.htmltag:blogger.com,1999:blog-5762110.post-1121336572873861572005-07-14T12:22:00.000+02:002005-07-14T12:22:52.906+02:002005-07-14T12:22:52.906+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com0در سایت شرکت میکروسافت می توانید با TAPI آشنا بشید که راهنمای برنامه نویسی و ارتباط با تلفن را بطور کامل توضیح داده است. سورس کدهای نوشته شده در اینجا همگی با وی بی یا سی هستند که شما براحتی می توانید اونها را به زبان دلفی نوشته و استفاده کنید. Windows Telephony (TAPI) Support in Windows NT 4.0 <p><a href="http://feedads.g.doubleclick.net/~a/TXXv6H6RYQE1x43QusFSp0cHSfk/0/da"><img src="http://feedads.g.doubleclick.net/~a/TXXv6H6RYQE1x43QusFSp0cHSfk/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/TXXv6H6RYQE1x43QusFSp0cHSfk/1/da"><img src="http://feedads.g.doubleclick.net/~a/TXXv6H6RYQE1x43QusFSp0cHSfk/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=w50ysdjA64Y:niAym455BNQ:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=w50ysdjA64Y:niAym455BNQ:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=w50ysdjA64Y:niAym455BNQ:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=w50ysdjA64Y:niAym455BNQ:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=w50ysdjA64Y:niAym455BNQ:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=w50ysdjA64Y:niAym455BNQ:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=w50ysdjA64Y:niAym455BNQ:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/w50ysdjA64Y" height="1" width="1"/>http://delphi.dilmaj.net/2005/07/windows-telephony-tapi-support-in.htmltag:blogger.com,1999:blog-5762110.post-1121331874085490412005-07-14T11:04:00.000+02:002005-07-14T11:04:34.126+02:002005-07-14T11:04:34.126+02:00Ali Reza Ebadathttp://www.blogger.com/profile/01335297083423745162noreply@blogger.com1شاید برای شما هم پیش آمده که در پروژه ای نیاز به استفاده از ابزار قوی SPSS در برنامه خود داشته باشید. در این سایت می توانید کامپوننتهائی را پیدا کنید که امکان استفاده از تمام ویژگیهای این برنامه را به شما می دهد. http://users.erols.com/eischeid/TSPSSDataFile/ البته یک را ساده برای تمام برنامه های از این نوع، برنامه نویسی به صورت OLE است. <p><a href="http://feedads.g.doubleclick.net/~a/9zrUOwKPciEx8isejmypKNv93U0/0/da"><img src="http://feedads.g.doubleclick.net/~a/9zrUOwKPciEx8isejmypKNv93U0/0/di" border="0" ismap="true"></img></a><br/> <a href="http://feedads.g.doubleclick.net/~a/9zrUOwKPciEx8isejmypKNv93U0/1/da"><img src="http://feedads.g.doubleclick.net/~a/9zrUOwKPciEx8isejmypKNv93U0/1/di" border="0" ismap="true"></img></a></p><div class="feedflare"> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=AwCj5dEnrX8:j82YNMp8-yU:yIl2AUoC8zA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=yIl2AUoC8zA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=AwCj5dEnrX8:j82YNMp8-yU:V_sGLiPBpWU"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?i=AwCj5dEnrX8:j82YNMp8-yU:V_sGLiPBpWU" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=AwCj5dEnrX8:j82YNMp8-yU:7Q72WNTAKBA"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=7Q72WNTAKBA" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=AwCj5dEnrX8:j82YNMp8-yU:dnMXMwOfBR0"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=dnMXMwOfBR0" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=AwCj5dEnrX8:j82YNMp8-yU:qj6IDK7rITs"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=qj6IDK7rITs" border="0"></img></a> <a href="http://feeds.feedburner.com/~ff/delphi-teacher?a=AwCj5dEnrX8:j82YNMp8-yU:TzevzKxY174"><img src="http://feeds.feedburner.com/~ff/delphi-teacher?d=TzevzKxY174" border="0"></img></a> </div><img src="http://feeds.feedburner.com/~r/delphi-teacher/~4/AwCj5dEnrX8" height="1" width="1"/>http://delphi.dilmaj.net/2005/07/spss.html