إبراهيم_دياب5

السلام عليكم أخى: يمكنك تجربة هذا الكود عسى أن يكون هو المطلوب: procedure TForm1.Button1Click(Sender: TObject); Var frmRegion, tempRegion: HRGN; i: Integer; Arect: TRect; Begin frmRegion := 0; For I:= 0 To ControlCount - 1 Do Begin aRect := Controls .BoundsRec…

كيف يمكننى التعامل مع المصفوفات الكبيرة بدون أن تظهر رسالة stack over flow . وشكراًُ

كيف يمكننى التعامل مع المصفوفات الكبيرة بدون أن تظهر رسالة stack over flow . وشكراًُ

أعتقد أخى أنك تريد وضع صورة فى TImage وإعطائها خاصية الــ Transparent ثم تلغى الــ Form من خلفها ولا تظهر. هل أنا فهمتك صح؟

أشكرك أخى العزيز tmaaa لأنى كنت أريد أن أعرف طريقة وضع الكود فى المربع. (f)

بسم الله الرحمن الرحيم كنت أود لو أعرف كيفية يمكن نقل ما فى RichEdit إلى RichEdit أخرى متضمناً الصور بدون النسخ إلى الــ ClipBoard. وشكراً

فى الجزء الخاص بـprivate ضع الكود التالى procedure VerticalTitleBar(Texto: string; Size: Integer); و const MY_TITLE_TEXT = 'Vertical Text'; والإجراء كالتالى: procedure TForm1.VerticalTitleBar(TexTo: string; Size: Integer); var LogFont: TLogFont; tmpCanvas: TCa…

أختى العزيزة آلاء: لتعملى Register كما مكتوب سابقاً: بيانات الــ Registration Name: wasted [ORiON] s/n: 174010 يمكنك ذلك بإختيار خانة Registration فقط وإدخال البيانات السابقة. (gift)

نشكرك أخى العزيز على أسماء هذه الكتب ، ولكن هل توجد هذه الكتب على الــ InterNet على شكل HTML أو PDF أو ما شابه ؟ أخوك: إبراهيم دياب

أخى العزيز Rami يمكنك الحصول على معلومات مفيده جداً إذا تصفحت جميع المواضيع المطروحه فى هذا المنتدى . وعموماً أى سؤال يمكننا الإجابة عليه نحن فى الخدمة. أخوك: إبراهيم دياب ومرحباً بك فى عالم الــ Delphi الذى هو كما ذكر أخى تطوير للــ Pascal (f)

أخى العزيز سأحاول إجابتك بقدر المستطاع * اذا كان خطأ ينفذ الامر الذي بعده (غير مفهوم) * ممكن تعطوني كيف أعطي مسج بوكي (غير مفهوم * ممكن تعطوني كيف أسوي شرط الشروط if a <> b then form1.caption:='A not equal B'; * ممكن تعطوني كيف عطي أمر إنها للبرنامج وأين يكون …

السلام عليكم ورحمة الله وبركاته: لقد قمت بعمل هذا الكود البسيط وذلك لتجزئة الصور ، مفترضاً فى هذا المثال أن لدينا صورة عرضها 893 وإرتفاعها 19 وتحتوى على 47 منظر فإذا قمن بحسبتها ستجد أن كل منظر مربع 19 × 19 وذلك بقسمة العرض الكلى 893 على عدد المناظر سنحصل على …

يمكنك الدخول هنا http://solair.eunet.yu/~beginner/bsdt/bsdt.zip أو هنا http://solair.eunet.yu/~beginner ثم تنزل برنامج Beginner Software's Delphi Tools ستجده فى نهاية الصفحة ثم تعمل Register بالبيانات التالية Name: wasted [ORiON] s/n: 174010 وستجد ما تريده إن …

بسم الله الرحمن الرحيم أعزائى كنت أريد عمل برنامج بحيث يكون موجود على جهازين متباعدين بحيث يقوم أحدهما بالإتصال عن طريق تليفون ويقوم الآخر بإستقبال الإتصال وفتح الخط / ويتم بعدها تبادل البيانات بشكل عادى. أرجو ممن لديه معلومات تفيدنى فى هذا الموضوع عرضها وشرحه…

السلام عليكم ورحمة الله: كنت قد وجدت كود فيجول لتعريب الرسائل وقمت بتحويله لدلفى فتوصلت للكود التالى. procedure TForm1.Button1Click(Sender: TObject); Const mb_ok = 1; mb_CANCEL = 2; mb_YES = 3; mb_NO = 4; mb_ABORT = 5; mb_RETRY = 6; mb_IGNORE = 7; WH_CBT = 5; …

السلام عليكم إخوانى: يقوم هذا الكود بمسح فهرس والملفات أو الفهارس الموجودة به على غير RMDir الذى يمسح الفهارس بشرط أن تكون فارغة. procedure DelTree(const Directory: TFileName); var DrivesPathsBuff: array[0..1024] of char; DrivesPaths: string; len: longword; Sh…

أخى العزيز المشرف: أشكرك على هذه الكلمات الجميلة ولكنى مهما قدمت فأنى أحاول رد ولو القليل مما يقدمه هذا المنتدى الرائع / فالهدف هنا هو نشر العلم للإرتقاء والتقدم فى هذا المجال فنداء لكل من لديه معلومة مفيده مهما كانت بسيطه ألا يبخل بها لأن هناك من يحتاجها. وفق…

السلام عليكم ورحمة الله وبركاته: أعزائى لقد قرأت بأنه لأخفى البرامج من الــ TaskList فى الــ WinNT,Win2000,WinXP كل ما على عمله هو: Application.Title := ''; أرجو تجربته وإخبارى بالنتيجة. مع تحياتى إبراهيم دياب

أشكرك أخى العزيز محمد: هذه الرسالة تظهر لى من الدلفى وليست من الويندز / وأنا لدى Win98 ، WinXXP وهذه الرسالة ظهرت على الــ XP لأنى قليلاً ما أعمل على الــ 98 ، أخوك - إبراهيم

هذا الكود لإخراج الصوت عن طريق سماعات الحاسب procedure Sound(Freq : Word); var B : Byte; begin if Freq > 18 then begin Freq := Word(1193181 div LongInt(Freq)); B := Byte(GetPort($61)); if (B and 3) = 0 then begin SetPort($61, Word(B or 3)); SetPort($43, $B6); …