سلام
كيف ممكن نتحكم في شكل الماس , وكيف استطيع اعطاء طاقم كامل له عندما يتنفد برنامجي { الطاقم اقصد به جميع احتمالات شكل و حالة الماوس متلا شكله العادي وشكله عندما يقوم بتحميل برنامج وشكله عندما يحاول تغيير حجم الفورم ة غيره من حالات الماوس }
وشكرا
التحكم في شكل الماوس
مغلق
اخي madi اشاء الله تجد عندي الحل لكني لست في البيت ولا احفظ الكود
غدا اشاء الله
مشكورين جميعا ,
السلام عليكم اخي هذا الكود ربما ينفعك
وساقوم بالبحث عن ما تر يده
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
setcursor(LoadCursorfromfile('D:My PicturesimageCURSORSGLOBE.ani'));
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
setcursor(LoadCursorfromfile('D:My PicturesimageCursordragpg1.cur'));
end;
تحيات pati
بسم الله الرحمن الرحيم
اخي العزيز مادي
اليك هذا المثال الي سويته لك على الدلفي
http://www.8op.com/sum/Cursor.zip
وتقبل اطيب تحياتي اخوك SUM
و الله الف شكر لكم اخوتي الاعزاء على الاهتمام و الله يجزيكم مليون خير وحسنة . بس انا اريد اعطي طاقم كامل للماوس مند بداية تنفيد البرنامج .
اخي العزيز باتي مشكور جدا على اهتمامك .
اخي الغالي سم انت عارف مشكلتس مع 8op , ياريت تبعتلي الكمبوننت على الايمايل .
ma_d_i@yahoo.com
وشكرا للجميع .
اخي العزيز مادي
والله الصحيح اني انا منشغل شوي ولا اقدر ارسل لك الملف على البريد
بس على العموم
ابغا اسوي تعديل بسيط على الكود الي اعطانا اياه اخونا pati
فقم اولاُ بكتابة هذا الكود في وحدة Create لل Form
Screen,Crusors[1]:=LoadCursorfromfile('D:My PicturesimageCURSORSGLOBE.ani');
طبعاً هذا الكود يقوم بتحميل الصورة فقط
وعندما تريد ان تعرض صورة الماوس التي تم تحميلها
فيمكنك ذلك بحسب الطريقة التاليه
Form1.Cursor:=1;
وتقبل اطيب تحياتي اخوك SUM
مشكور اخي سم , وانا مقدر انشغالك .
لكن يوجد خطاء في كتابة الامر .
وساعيد كتابة الاوامر كاملة ,بعد ادن اخي العزيز سم
procedure TForm1.FormCreate(Sender: TObject);
begin
screen.Cursors[1]:=LoadCursorfromfile('c:hhtt.ani');
Cursor :=1;
end;
حيت tt.ani
ا ملف خاص بشكل الماوس
.
وشكرا للجميع على الاهتمام .
بسم الله الرحمن الرحيم
اخي العزيز مادي
الصحيح اني كتبت الكود وانا مستعجل وبدون مااجربه على الدلفي
على العموم هذا تصحيح للكود
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[1]:=LoadCursorfromfile('D:My PicturesimageCURSORSGLOBE.ani');
end;
هذا بالنسبة لتحميل صورة الماوس
اما استدعاء الصورة
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Cursor:=1;
end;
وتقبل اطيب تحياتي اخوك SUM
أسف على التأخر
هذا هو المثال اللذي يستدعي مؤشر الماوس من ملفات الموارد
http://mypage.ayna.com/toffi/res.zip
أذا كان فية أي غموض اشرحة لك
Super Nova
مشكور اخي عبد القادر .
وهده هي الاوامر في برنامج اخي عبد القادر :
procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Screen.Cursors[5]:= LoadCursor(HInstance, 'eee1');
Button1.Cursor:= 5;
end;
بس ياريت توضح ماهو eee1
وشكرا .
اخي عبد القادر , انا لاحضت انك وضعت برنامجك عند خدمة اين ,
كيف يمكننا الاشتراك في هده الخدمة لانها توفر لنا خدمة كبيرة , حيت ستوفر لنا امكانيةتبادل البرامج فيما بيننا . ياريت تساعدنا في الاشتراك . وخاصة الاخ العزيز سم .
وشكرا
eee1 هي اسم الأيقونة في ملف الموارد
حرر الملف res.res بواسطة برنامج التحرير المرفق مع دلفي وشاهد الأيقونة بداخلة وشاهد اسمها
أما بالنسبة لأين
فمجرد أن تشترك ببريد عندهم تحصل على مساحة مجانية تصلح كموقع شخصي ويمكن أن تضع فيها بعض الملفات
Super Nova
الف شكر لك اخي عبد القادر والله ينور عليك اكتر واكتر .
شكرا للجميع .
هذا الموضوع مغلق.