5- چطور می توان از Desktop عکس گرفت ؟
روی فرمتون یک Button ، یک SaveDialog (از پالت Dialog) ، و یک Image بگذارید .
روی رویداد OnClick کلید خطوط زیر را بنویسید :
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);
۴- چگونه می توان از طریق برنامه نویسی CD-Romرا باز و بسته کرد ؟
ابتدا روی فرمتون دو کلید بذارید ، کپشن آنها رو به Open و Close تغییر بدهید :
برای انجام این کار نیاز داریم که یونیت MMSystem را قابل استفاده کنیم برای این کار در زیر implementation می نویسیم :
Uses MMSystem;
برای کلید Open خط زیر را بنویسید:
mciSendString('Set cdaudio door open wait',nil,0,handle);
و برای کلید Close هم خط زیر را بنویسید:
mciSendString('Set cdaudio door Closed wait',nil,0,handle);
۳- آیا می توان فرمی داشت که در آن سوراخی وجود داشته باشد؟
بله ، این کار به راحتی انجام می شه ، اسکریپت زیر رو در رویداد OnPaint فرمتون کپی کنید:
Procedure TForm1.FormPaint(Sender: TObject);
Var
Wnd:HWnd;
R1,R2:HRGN;
R:TRect;
Begin
Wnd:=Application.MainForm.Handle;
GetWindowRect(Wnd,R);
R1:=CreateRectRgn(0,0,R.Right-R.Left,R.Bottom-R.Top);
R2:=CreateEllipticRgn(10,30,150,120);
CombineRgn(R1,R1,R2,RGN_DIFF);
SetWindowRgn(Wnd,R1,true);
End;
۲- چطور می توان Hint (ToolTip) ی با فونتی متفاوت از فونت استاندارد که ویندوز برای Hint داره ، داشت ؟
قبل از Type اصلی برنامه خطوط زیر رو وارد کنید :
Type
TMyHint=Class (ThinTWindow(
Constructor Create (Aowner:TComponent);override;
End;
با این کار ما یک کلاس جدیدی از Hint رو برای دلفی تعریف کردیم .
و حالا خطوط زیر را در زیر Implementation بنویسید :
Constructor TMyhint.Create(Aowner:TComponent);
Begin
inherited Create (Aowner);
Canvas.Font.Name:=’Arial’;
Canvas.Brush.Color:=ClBlue;
End;
و با این کار ساختار TMyHint را بوجود آوردیم ، یعنی خواستیم که فونت آن Arial و رنگ آن آبی باشد.
سپس در انتها برای اینکه این ساختار در برنامه اعمال شود خطوط زیر در قسمت OnCreate فرم اصلی برنامه کپی کنید :
Application.ShowHint:=False;
HintWindowClass:=TMyhint;
Application.ShowHint:=True;
1- هیچ می دونستید در دلفی می توان بدون داشتن هیچ کامپوننت یا ocx خاصی فرم ها را با افکت های مختلف نشون داد؟
برای انجام این کار در رویداد OnCreate فرمی که می خواهید با افکت باز بشه خط زیر را اضافه کنید :
AnimateWindow(Form1.Handle, 300, AW_Center);
البته بهتره بدونید که فقط همین یه دونه افکت نیست ، پارامتر سوم پردازه بالا نوع افکت رو مشخص می کنه ، اگه رو اون کلید Ctrl+Space رو بزنید از لیستی که باز می شه می تونید افکت های دیگه رو انتخاب کنید . همچنین پارامتر دوم زمان طول کشیدن افکت رو بر حسب میلی ثانیه مشخص می کنه . پارامتر اول هم هندل (شماره منحصر به فردی که ویندوز به هر پنجره اختصاص می ده) فرمیه که می خواهید با افکت نشون داده بشه.
.
بسم الله الر حمن الر حیم
دوستان عزیز برنامه نویس ، سلام
من سعید قنبری هستم ، ساکن شهر قم و 21 سال دارم . امروز 11/3/85 با خودم گفتم بشینم یه وبلاگ آموزش ترفندهای برنامه نویسی راه بندازم . حالا با کدوم زبان برنامه نویسی ؟ من که خودم ارادت خاصی نسبت به شرکت Borland دارم پس ان شاءالله در این وبلاگ با ترفندهای Borland Delphi 7.0 آشنا می شیم . قصد دارم که اگه خدا بخاد هر هفته یه مطلب جدید براتون بذارم تا حالشو ببرید ولی این دفعه چون افتتاحیه ست با 5 تا مطلب شروع می کنم .
سوالاتتون را در مورد دلفی یا تو قسمت نظرات برام بذارین و یا برام میل کنید تا جوابش رو تو همین وبلاگ جواب بدم .
پیوندها