romanof

معرفة الdirectory uses Registry; function GetDirectory: string; var reg : TRegistry; begin reg := TRegistry.Create; try reg.RootKey := HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache\Special Paths\Cookies', Fa…

وجدت مجموعة من الاكواد والان سأ مطرك بوابل منها ولكن انا لااجيد برمجة الانترنت انت تستقيد منها بطريقتك uses WinInet; // Causes the modem to automatically dial the default Internet connection. procedure TForm1.Button1Click(Sender: TObject); var dwConnectionType…

لم اتعامل مع هذا النوع من البرامج اخي اسف

اهلا وسهلا اخي العزيز michoholic حياك الله بيننا بالاصالة عن نفسي و بالنيابة عن زملائي اقول شكرا شكرا اخي العزيز بالتاكيد سنستفيد منك

اخبرني هل اشتغل الكود ؟؟؟

اول شئ السهولة ليس عيبا ابدا في اي موضوع وهذا هو حلم البشر في كل العلوم تسهيل غير مخل بالمضمون ةهذا لايكون زائدا ابدا بالعكس هذا ميزة بالعكس ان كل من عمل اداة واحدة او مكون واحد لعلم علم اليقين ان هذه التقنية هي برمجة بحق وانك تنفذ كودا بالفعل وهذا الكود يحتاج…

يعني الاخ مستجد!! مبروك عليك اختيارك الموفق لهذه اللغة ومبروك على المنتدى زيادة الاعضاء بالفعل هذا هو شعارنا

هل حاولت ان تسال اين هو السطر الذي يظهر الايقونة Form1.Canvas.Draw(IconSizeX * 4, IconSizeY, XOrMask); Form1.Canvas.Draw(IconSizeX * 6, IconSizeY, Icon); لاحظ ان الاول يستخدم متغير من النوع bitmap كمصدر للصورة و بالتالي خلفية الايقونة بيضاء بينما الثاني يستخدم…

يا اخي اسف والله باءت محاولاتي بحفظ الملف على شكل ico بدون ان تصبح الصورة باهتة بالفشل!!!! في حل ثاني :rolleyes: يعني الحصول على الايقونة من اي ملف ممكن ثم حفظها بالتنسيق bmp وهذا الامر ناقشناه سابقا وفي المرة القادمة من هذا الملف الذي حفظناه بالتنسيق bmp نستط…

اصبر علي قليلا انا الان اجهز الموضوع

ربما دلك هذا الكود على شئ معين procedure TForm1.ListBox1Click(Sender: TObject); var InputString: string; begin showmessage(intToStr(ListBox1.ItemIndex)); InputString:= InputBox('Input Your Password', 'input true Passwrod to continue',''); if InputString<>'' th…

ثم اضف هذا الكود procedure TForm1.Button2Click(Sender: TObject); var Bitmap : TBitmap; begin Bitmap := TBitmap.Create; Bitmap.Width :=Image1.Picture.Icon.Width; Bitmap.Height:=Image1.Picture.Icon.Height; Bitmap.Canvas.Draw(0, 0, Image1.Picture.Icon); Bitmap.Sa…

وهذه طريقة اخري لكن الفرق ليس جذريا procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); var KeybState: TKeyboardState; begin GetKeyboardState(KeybState); If ( (KeybState[VK_CONTROL] and 128)=128 ) and ( (KeybState[VK_F5] and 128)=…

اخي العزيز مسالة اخفاءه و إظهاره مش مشكلة المشكلة في التقاط عدة ازرار مع بعض بالذات اربعة ازرار مع بعض !!! والحل كالتالي procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin If ((GetKeyState(VK_CONTROL) AND 128)=128) and ((Ge…

جرب هذا الكود uses ShellAPI; . . . procedure TForm1.Button1Click(Sender: TObject); var A: array [0..78] of Char; begin if OpenDialog1.Execute then begin StrPCopy(A, OpenDialog1.FileName); Image1.Picture.Icon.Handle := ExtractIcon(HInstance, A, 0); end; end;

وهذه مجوعة اخري في السي++ والجافا لا تفوتكم http://www.semi.com.ua/main_lib.php

او مثلا طبعا الاحداثيات بالنسبة للفورم الا ب ActiveMDIChild.Width:=10;

مثلا اذا كنت فهمت السؤال جيدا فهاهي الاجابة procedure Tfrmain.Button1Click(Sender: TObject); var i:integer; begin if MDIChildCount=0 then showmessage('There are not any Child forms') else for i:=0 to MDIChildCount-1 do begin MDIChildren.Left:=20; MDIChildren.T…

وضح السؤال اله يخليك

اخي هنا ك نقطة اخرى هي الارسال بواسطة ال out والتحميل الزائد عفوا على المعلومات الناقصة