.....-‘๑’- WELLCOM-‘๑’- Quan Tri Co So Du Lieu.....-‘๑’..!
Chào mừng đến với QTCSDL Group
>> Đăng nhập : Bạn đã có tài khoản ở forum click vào để gõ ID và password.

>> Đăng ký : Bạn chưa có tài khoản ở forum, đăng ký 1 tài khoản để tham gia thảo luận.

>> Do not display again : Dẹp bỏ cái khung này.
===========================================

Hiện mouse trong pascal

Go down

default Hiện mouse trong pascal

Bài gửi by kaildo on Sun Mar 22, 2009 3:00 pm

Đây là đoạn code mà mình tham khảo được, nó giúp các bạn hiện mouse và các sự kiện cũa mouse trong môi trường pascal, mình nghĩ là nó rất hay:
đây là unit

Code:
{Mouse.pas}

Var mouseX,mouseY:word;

mouseL,mouseR:boolean;

Procedure showmouse;

Begin

Asm

mov ax,1

int 33h

End;

End;



Procedure hidemouse;

Begin

Asm

mov ax,2

int 33h

End;

End;



Function mouseevent:boolean;

Var t:word;

Begin

Asm

mov ax,3

int 33h

mov mouseX,cx

mov mouseY,dx

mov t,bx

End;

mouseY:=mouseY div 8 +1;

mouseX:=mouseX div 8 +1;

mouseEvent:=t<>0;

mouseL:=boolean(t and 1);

mouseR:=boolean(t and 2);

End;



Function mouseeventgr:boolean;

Var t:word;

Begin

Asm

mov ax,3

int 33h

mov mouseX,cx

mov mouseY,dx

mov t,bx

End;

inc(mouseX);

inc(mouseY);

mouseEventgr:=t<>0;

mouseL:=boolean(t and 1);

mouseR:=boolean(t and 2);

End;




avatar
kaildo
Moderator
Moderator

Tổng số bài gửi : 24
Age : 28
Châm ngôn sống : Tiền không là gì cả!
Nhưng ko có tiền thì chả làm d.c cái đéo gì !
Lớp đang học : Quản Trị Cơ Sở Dữ Liệu CDN K1
Ngày gia nhập QTCSDL Group : 22/02/2009
EXP : 13
Thanks : 2
Thú cưng :

Xem lý lịch thành viên

Về Đầu Trang Go down

default Re: Hiện mouse trong pascal

Bài gửi by vmquan on Wed Mar 25, 2009 8:51 am

Có thể giải thích các câu lệnh trong code trên để mọi người hiểu kg?
avatar
vmquan
Teacher
Teacher

Nam
Tổng số bài gửi : 29
Age : 39
Châm ngôn sống : Sống vì mình
Lớp đang học : GVCN Quản Trị Cơ Sở Dữ Liệu CDN K1
Ngày gia nhập QTCSDL Group : 03/03/2009
EXP : 30
Thanks : 13
Thú cưng :

Xem lý lịch thành viên

Về Đầu Trang Go down

default Re: Hiện mouse trong pascal

Bài gửi by Admin on Wed Mar 25, 2009 4:10 pm

Thấy sai lầm khi post bài này vì các bạn chưa hỉu j` về pascal hết. Nên close topic \, lần sau sẻ post bài cơ bản

_________________
Admin Ko phải cái gì cũng biết
Admin ko có gì ngòai sự nhiệt tình
avatar
Admin
Tổng điều hành
Tổng điều hành

Nam
Tổng số bài gửi : 160
Age : 28
Đến từ : Kien Giang
Châm ngôn sống : Người bình thường làm việc bình thường
Lớp đang học : Quản Trị Cơ Sở Dữ Liệu - CDN K1
Ngày gia nhập QTCSDL Group : 13/02/2009
EXP : 1126
Thanks : 46
Thú cưng :

Xem lý lịch thành viên http://qtcsdl.forumvi.com

Về Đầu Trang Go down

default Re: Hiện mouse trong pascal

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết