نمونه کدها ، مثالها و سورسهای دلفی

[ahmadi613]

با سلام
پروژه ساخت فايل در درايو رادر برنامه براي كاربران محترم سايت قرار مي دهم.در اين پروژه اگر فايل مذكور دردرايو وجود داشته باشد اعلام مي كند وجود داردواگر وجود نداشته باشد اعلام مي كندوجود ندارد و اين فايل را مي سازد.در آينده با تغيير پروژه هر فايلي با هر نامي در هر درايوي كه مايل باشيد بسازيد را تقديم مي داريم.

دانلود پروژه:دانلود (<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>)

[javad_rajabloo]

سلام . از این به بعد نمونه کدها ، مثالها و سورسهای دلفی در این بخش مطرح میشه.

[admin]

یک کد جالب برای نمایش ساعت در صفحه ی دستاپ ، بعد از اجرای نرم افزار

ابتدا یک کنترل Timer رو فرمتان بیاندازید و سپس با کلیک بر روی آن کد زیر را در آن قسمت جایگزین کنید
کد:




procedure TMain.Timer1Timer(Sender: TObject);
var
d:TDateTime;
x:integer;
str:String;
DeskTopCanvas: TCanvas;

begin
*desktopcanvas:=TCanvas.Create;
*desktopcanvas.Handle:=GetDC(HWND_DESKTOP);
*d:=Time;
*str:=TimeToStr(d);
*desktopcanvas.Font.Color:=clRed;
*desktopcanvas.Font.Name:=(&quot;tahoma&quot;);
desktopcanvas.Font.Size:=20;
*desktopcanvas.TextOut(12,12,str);
SetBkMode(Canvas.Handle,x);
end;

[admin]

عکس گرفتن از صفحه ی دستاپ و ذخیره اون

روی فرمتون یک Button ، یک SaveDialog (از پالت Dialog)* و یک Image بگذارید.
روی رویداد OnClick (Button*) کد زیر را بنویسید :


کد:



procedure TForm1.Button1Click(Sender: TObject);
VAR
DesktopCanvas : TCanvas;
begin
desktopcanvas:=TCanvas.Create;
desktopcanvas.Handle:=GetDC(HWND_DESKTOP);
Image1.Width:=DesktopCanvas.ClipRect.Right;
Image1.Height:=DesktopCanvas.ClipRect.Bottom;
Image1.Canvas.CopyRect(Rect(0,0,1024,768),
DesktopCanvas,Rect(0,0,1024,768));
*If SaveDialog1.Execute then
*Image1.Picture.Bitmap.SaveToFile(SaveDialog1.Fil eName);
end;

[admin]

تغییر شکل اجزاء از مستطیلی

برای تغییر شکل* Edit***از مستطیلی به دور گرد ...
ابتدا از برگه Standard يك Edit آورده و سپس در رويداد OnCreat فرم*کد زیر را بنویسید*:

کد:




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

[ahmadi613]

با سلام
پروژه فرم سوراخ دار يكي از ترفند هاي دلفي براي دوست داران وعلاقه مندان آن.باشد كه با دانلود از لينك زير خوشتان بيايد.موفق باشيد.براي دانلود اگر مشكلي دارد خبر دهيد البته اصلاح كرده ام

دانلودپروژه:دانلود (<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>)