آموزشکده فنی و حرفه ای سما ایلام

این مطلب رو یکی از دانشجویان آموزشکده سما (Lady) برای من فرستادن .

منتظر مطالب شما هستیم

به دست آوردن مختصات ماوس در صفحه نمایش:

مثال زیر مختصات نشانگر ماوس را در عنوان فرم مینویسد:

 ;Form1.caption:=Mouse.cursorpos.x +' - ' + Mouse.cursorpos.y

 تغییر دادن مختصات ماوس:

با استفاده از دستور زیر میتوانید مختصات ماوس را تغییر دهید:

 ;(SetCursorPos(X,Y

جابجا کردن یک جسم با ماوس:

برای جابجا کردن یک جسم با ماوس رویداد onMouseDown آن را به صورت زیر تغییر دهید و به جای Name نام جسم را وارد کنید:

;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
;(Shift: TShiftState; X, Y: Integer
        Const

; SC_DragMove = $f016

begin

;ReleaseCapture

;(Name.Perform(WM_SysCommand , SC_DragMove,0

End;

چگونه برنامه ای را اجرا کنیم؟ :

برای اجرای یک برنامه ابتدا باید یک Thandle تعریف میکنیم :

Var
;ProgramHandle:Thandle

حال برای اجرای برنامه به صورت زیر عمل میکنیم:

;(Programhandle:=WinExec('َAddress',Sw_Shownormal 

 چگونه برنامه در حال اجرایی را ببندیم؟ :

برای بستن یک برنامه ابتدا یک متغییر از نوع HWND تعریف میکنیم:

Var
;Handle:HWND

حالا برای نسبت دادن برنامه مورد نظر به متغییر به صورت زیر عمل میکنیم:

;('Handle:=Findwindow(nil,' Programs Name

و برای بستن برنامه دستور بستن برنامه را به صورت زیر مینویسیم:

;(if Handle<>0 then PostMessage(Handle, WM_Close,0,0
 

جلوگیری از بستن برنامه توسط کاربر :

اگر در برنامه خود به هر دلیلی نیاز دارید که کاربر با کلیک بر روی علامت ضربدر و یا زدن کلیدهای Alt +F4 نتواند برنامه را ببندد از روش زیر استفاده کنید, در این صورت کاربر فقط با استفاده از Task Manager میتواند برنامه را ببندد.

برای جلوگیری از بستن فرم در رویداد OnCloseQuery مربوط به فرم خط زیر را اضافه کنید:

;CanClose:=False

و برای برگشت به حالت عادی آن را برابر True قرار دهید.

باز کردن سی دی رام

یک کلید روی فرم قرار دهید و روی آن دوبار کلیک کنید حال کد ریر را تایپ کنید: