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

[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:=("tahoma");
 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.FileName);
end;

[admin]

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

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

کد:

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

[ahmadi613]

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

دانلودپروژه:[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

[ahmadi613]

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

دانلود پروژه:[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]