• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

alla11

اعضاء جدد
  • عدد المشاركات

    20
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل شيء نشر بواسطة alla11

  1. بسم الله الرحمن الرحيم الصلاة السلام على رسول الله كيف أجعل برنامجي يضيف اللغة العربية تلقائيا كيف أجعل برنامجي يضيف اللغة العربية تلقائيا عند تثبيته في أجهزة ذات نظام تشغيل أجنبي فرنسية أو غيره هل هناك أستطيع أن أضيفها أم ماذا وكيف ذلك وأكون مضطر الى اضافة  اللغة العربية يدويا فهل من حل شكرا هذا مثال بسيط وهناك مرفق من يطلع عليه يعطينا رأيه شكرا procedure TForm3.FormCreate(Sender: TObject); begin     BiDiMode := bdRightToLeft;     Font.Charset := ARABIC_CHARSET;     Position := poScreenCenter;     button1.BiDiMode := bdRightToLeft;     button1.Font.Charset := ARABIC_CHARSET;     Panel1.BiDiMode := bdRightToLeft;     Panel1.Font.Charset := ARABIC_CHARSET;     GroupBox1.BiDiMode := bdRightToLeft;     GroupBox1.Font.Charset := ARABIC_CHARSET;     RadioGroup1.BiDiMode := bdRightToLeft;     RadioGroup1.Font.Charset := ARABIC_CHARSET;     RadioButton1.BiDiMode := bdRightToLeft;     RadioButton1.Font.Charset := ARABIC_CHARSET;     RadioButton2.BiDiMode := bdRightToLeft;     RadioButton2.Font.Charset := ARABIC_CHARSET;     CheckBox1.BiDiMode := bdRightToLeft;     CheckBox1.Font.Charset := ARABIC_CHARSET;     CheckBox2.BiDiMode := bdRightToLeft;     CheckBox2.Font.Charset := ARABIC_CHARSET;     Memo1.BiDiMode := bdRightToLeft;     Memo1.Font.Charset := ARABIC_CHARSET;     edit1.BiDiMode := bdRightToLeft;     edit1.Font.Charset := ARABIC_CHARSET;     label1.BiDiMode := bdRightToLeft;     label1.Font.Charset := ARABIC_CHARSET;     BitBtn1.BiDiMode := bdRightToLeft;     BitBtn1.Font.Charset := ARABIC_CHARSET;     caption := 'النافذة الثانية';     button1.Caption := 'رجوع الى النافذة الرئيسية';     Panel1.Caption := 'هذا بانال';     GroupBox1.Caption := 'هذا قروب بوكس';     RadioGroup1.Caption := 'هذا راديو قروب';     RadioButton1.Caption := 'هذا راديو بوتو';     RadioButton2.Caption := 'هذا راديو بوتو2';     CheckBox1.Caption := 'هذا شاك بوكس1';     CheckBox2.Caption := 'هذا شاك بوكس2';     Memo1.Lines.Add('هذه سطور ميمو');     Memo1.Text := 'هذا ميمو';     edit1.Text := 'هذا اديت';     label1.Caption := 'هذه لابل';     RadioGroup1.Items.Strings[0] := 'هذا أول اتام';     RadioGroup1.Items.Strings[1] := 'هذا ثاني اتام';     RadioGroup1.Items.Strings[2] := 'هذا ثالث اتام';     BitBtn1.Caption := 'هذا بيت تيتن'; end;   p1.rar
  2. السلام عليكم  هل يمكن عدم انشاء الملف التنفيذي في الحقيقة لم أعرف أين أضع سؤالي هذا هل يمكن عدم انشاء الملف التنفيذي هل يمكن اثناء الاشتغال على البرنامج منجز بدلفي عدم انشاء الملف التنفيذي لهو من نوع exe والملفات الاخرى التي تنشأ مع الملف التنفيذي ك dcu , cfg . كما يحدث في فيزيال بيسك5 التي لاتنشأ الملف التنفيذي تلقائيا أليس عملية الانشاء المتكررة اثناء الاشتغال على البرنامج قد تسبب تلف للقرص الصلب وهذا اذا كانت فكرة البرنامج غير مستقرة في راسك وأنت تجرب فكرة أو تعليمة ما أو شرط وأنت حائركيف تسيغهم وكل مرة تجرب وهذه تنجح واخرى لاتنجح وتنيجة لهذه العملية المتكررة لا أريد أنشاء الملف التنفيذي ماذا أفعل و هل من طريقة وأنا لكم من الشاكرين أ
  3. بسم الله الرحمن الرحيم والصلاة والسلام على أشرف المرسلين سيدنا محمد ابن عبد الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين عملية البحث في قواعد البيانات -دلفي- مثال بسيط وبحث بطرق مختلفة المثال عبارة عن مرفق مضغوط : Rechercher   Rechercher.zip
  4. بسم الله الرحمن الرحيم الصلاة والسلام على رسول الله أي اخطاء ترونها اعلموني بها أو اقترحات تحبون اضافتها  وشكرا 1 الوحدة الاولى هي الواجهة الرئيسية للبرنامج فبمجرد الدخول تستطيع الدخول الى كافة الاقسام في البرنامج 2 الوحدة الثانية من خلالها تستطيع  تسجيل كافة السلع الموجودة في المحل   و التي ستجلب فيما بعد فتسجيل كل السلع يجعل البرنامج يعمل بشكل جيد ، فقم بتسجيل كل الموجودات طريقة التسجيل تكون بكتابة اسم السلعة في المربع الاول وكتابة الكمية التي تم شراؤها في المربع الثاني وكتابة ثمن السلعة في المربع الثالث أقصد ثمن البيع وليس ثمن الشراء لأنك عندما تقوم فيما بعد باجراء عملية البيع لن تكون مضطر الى كتابة الثمن لأنه سيتم جلبه آليا من قاعدة البيانات لأنه مسجل فيها ملاحظة هامة البرنامج لا ييقبل الفواصل أقصد أنه يعمل على الاعداد الصحيحة فقط فأرجــــــــو الانتباه الى ذلك عند تسجيل مثال : هذه القيمة 546.00 تكتب هكذا 54600 بدون فواصل اعداد صحيحة 3 الوحدة الثالثة لتحرير فاتــورة ما كتابة اسم السلعة في المربع الاول أو اختياره من القائمة بالضغط فوق السهم الموجود بجانب المربع  أو ضغط على أف 4 F4 وكتابة عدد السلعة في المربع الثاني والضغط فوق حساب ظهور النتيجة في المربع الكبير بالتفصيل لكل سلعة وظهور المجموع الكلي للسلع التي تم بيعها المربع "المجموع الكلي" اذا كانت دين أكتب اسم صاحب الدين في المربع السفلي أو اختر من القائمة اذا كان من أصحاب الديون الموجودين عندك اشر على "تسجيل في قائمة الديون" قبل الكتابة اسم الدائن اذا أردت تسجيل جديد ماعليك سوى الضغط فوق "جديد وحفظ" ويمكنك حفظ ها في ملف نصي اذا أردت ذلك وعند المغادرة تطالب بحفظ النتيجة كذلك 4 الوحدة الرابعة تمثل المجموع الكلي أقصد مجوع المبيعات ظهور "مجــمــوع المبيعات التي تمّ بيعها" في المربع الاول كتابة كل ما تم شراه للمحل من سلع  في المربع الثاني الضغط فوق "تسجيل" وظهوره الثالث ظهور النسبة المأوية في المربع الرابع بعد الضقط فوق "حساب" ديون المحل المتوجب على صاحب المحل سدادها هي ديون استدان بها صاحب المحل تكتب في المربع الخامس وظهورها في المربع السادس لاظهار ديون المحل الضقط فوق  "مجموع الدين" لحذف الديون الضغط فوق "حـــذف مجــمو ع الديـن" 5 الوحدة الخامسة لعرض أصحاب الديون المربع الاول اسم صاحب الدين المربع الثاني المبلغ والضغط فوق "تسجيل" المربع الثالث لتحذيرات أقصد عدد السلعة التي سيتم تحذرك به أكتب فيه عدد السلع مثلا 10 أو 3 اذا بقية لك 10 أو 3 تأتيك رسالة تنبهك على أن السلعة قد نفذت من المحل المربع الرابع لضريبة تيفيا TVA اكتب في المربع مثلا 17 أو غيرها اضغط فوق "تسجيل" وفي الشبكة سيتم عرض أصحاب الديون المتوجب عليهم سدادها   comairace.rar
  5.   بسم الله الرحمن الرحيم الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين كيف يمكن جعل الكتلبة من أعلى الى أسفل فوق الفورم Form أو لابل أو اماج أو مثلا وهي الأهم كرلابل  أو في كر اماج أو غيرهم من العناصر ال مثلا : TForm TLabel TQRLabel TQRImage هذه العناصر أو المركبات أو الكائنات لأني أريد أن تكون الجملة الكتابية من أعلى الى أسفل أو العكس لأن كتابة أي جملة تكون في الأصل من اليمين الى اليسار أو العكس في لغة كانت كما نفعل في الورد   في دلفي ولكم مني جزيل الشكر    
  6. مشروع لصنع Keygen لبرنامج

    فكرة هايلة مشكور
  7. برنامج إدارة مقهى انترنت بسيط

    بارك الله فيك
  8. مشروع تسيير الصيداليات

    بارك الله فيك
  9. مشروع من أول خطوة في قواعد البيانات

    بارك الله فيك
  10. مشروع محاسبة مقسم هاتف دلفي

    بـــــــــــارك الله فيــك
  11. عرض تلميح ورسالة بجانب الساعة بسم الله الرحمن الرحيم الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين   من أجل رد على الأج mohamed27 وأتمنى أن أكون قد يفقت وشكرا Show Balloon.rar
  12. بسم الله الرحمن الرحيم الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين برنامج تنبيه لانتهاء عقد عمل وتلميح بجانب الساعة unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ComCtrls, shellapi, Menus, Grids, DBGrids, ExtCtrls,   DBCtrls, DB, DBTables; type   TForm1 = class(TForm)     Button1: TButton;     Label1: TLabel;     Table1: TTable;     DataSource1: TDataSource;     DBNavigator1: TDBNavigator;     DBGrid1: TDBGrid;     Table1Num: TFloatField;     Table1Nom: TStringField;     Table1Nom2: TStringField;     Table1Date_ent: TDateField;     Table1Date_sor: TDateField;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure Button1Click(Sender: TObject);   end; var     Form1: TForm1;     MyTNA: NOTIFYICONDATA;     s: string;      implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); var   Present:TDate;   Year,Month,Day :Word;   Year1,Month1,Day1 :Word;   Year2,Month2,Day2 :Word;   j : longint; begin   Table1.Open;  // Table1   s := '';   day2 := 0;   Day1 :=  0;   day := 0;   Present:=Now;   DecodeDate(Present,Year,Month,Day);     Table1.DisableControls;   Table1.First;   while not Table1.Eof do   begin   Present := Table1Date_sor.Value;   DecodeDate(Present,Year1,Month1,Day1);   Year2 := Year1 - Year;   Month2 := Month1 - Month;   Day2 := Day1 - Day;     if (Year2 <= 0)and(Month2 <= 0)and(Day2 <= 0)then    s :=s+'|'+ 'انتهاء عقد '+Table1Nom.Text   else   if (Year2 = 0)and(Month2 = 0)and(Day2 = 1) then     s :=s+'|'+' بقي يوم '+ IntToStr(Day2) +   ' وينتهي عقد '+   Table1Nom.Text;   Table1.Next;   end;   Table1.EnableControls;  // if(s <> '')and(Day2 <= 1)then  ShowMessage(s);      with MyTNA do     begin       cbSize := SizeOf(TNotifyIconData);       uID := 1;       uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;       Wnd := Handle;       uCallbackMessage := WM_APP + 1;       hIcon := Application.Icon.Handle;       with MyTNA do       begin         for j:=0 to length(s)-1 do MyTNA.szTip[j] := s[j+1];         szTip[length(s)]:=#0;       end;     end;     Shell_NotifyIcon(NIM_ADD, @MyTNA); end; procedure TForm1.FormDestroy(Sender: TObject); begin  Shell_NotifyIcon(NIM_DELETE, @MyTNA); end; procedure TForm1.Button1Click(Sender: TObject); begin   Application.Terminate; end; end.   dateto3.rar
  13. برنامج بدلفي لتسيير محل تجاري نسخة 2 بسم الله الرحمن الرحيم الصلاة والسلام على رسول الله أي اخطاء ترونها اعلموني بها أو اقترحات تحبون اضافتها  وشكرا ملاحظة لقد أضفت اليه بعض الاضافات أذكر منها انه أصبح يقبل الاعداد الحقيقية العملة كذلك الرمز السري delph arabteam2000.zip
  14. بسم الله الرحمن الرحيم الصلاة والسلام على أشرف المرسلين وعلى آله وصحبه أجمعين هذه مجرد محاولة delphi7 procedure TForm1.Button1Click(Sender: TObject); var   Present:TDate;   Year,Month,Day :Word;   Year1,Month1,Day1 :Word;   Year2,Month2,Day2 :Word;    s: String; begin   // مثلا من قاعدة البيانات  Edit2.Text := 'محمد';   // الوقت الحالي   Present:=Now;   DecodeDate(Present,Year,Month,Day);   // مثلا من قاعدة البيانات   Present:=DateTimePicker1.Date;   DecodeDate(Present,Year1,Month1,Day1);   Year2 := Year1 - Year;   Month2 := Month1 - Month;   Day2 := Day1 - Day;   s := '';   if (Year2 = 0)and(Month2 = 0)and(Day2 = 0)then    s := 'انتهاء عقد '+Edit2.Text   else   if (Year2 = 0)and(Month2 = 0) then     s :=' بقي يوم '+IntToStr(Day2)+   ' وينتهي عقد '+   Edit2.Text;   if(s <> '')and(Day2 <= 1)then ShowMessage(s); end; procedure TForm1.FormShow(Sender: TObject); begin  Button1Click(Sender);  close; end; بجانب الساعة  لم أجد الحل وشكرا -------------------------------------- هاتان دالتان من أجل اضافته الى بدأ تشغيل هذه الدالة تقوم  بكتابة القيمة في المفتاح run procedure WriteFileInRegistry(rName,aName: String); var   Reg: TRegistry; begin   Reg := TRegistry.Create;   Reg.RootKey := HKEY_LOCAL_MACHINE;   Reg.OpenKey(sk, True);   if not Reg.ValueExists(rName) then     Reg.WriteString(rName, aName);   Reg.CloseKey;   Reg.Free; end; هذه الدالة تقوم  بحذف القيمة من المفتاح run procedure DeleteFileInRegistry(rName: String); var   Reg: TRegistry; begin   Reg := TRegistry.Create;   Reg.RootKey := HKEY_LOCAL_MACHINE;   Reg.OpenKey(sk, True);   if Reg.ValueExists(rName) then Reg.DeleteValue(rName);   Reg.CloseKey;   Reg.Free; end;
  15. مكونات Suiskin

    بارك الله فيكم على هذه شروحات القييمة التي تفضلتم بها فلكم مني ألف شكر
  16. بسم الله الرحمن الرحيم الصلاة والسلام على رسول الله   استفسار وتوضيح حول هذا الكود تشغيل مروحة واقافها استفسار وتوضيح من برمجة الاخ  الع؟د لخ؟؟  بارك الله فيه ولكن أردت أستفسر حول بعض النقاط ادخل سلكان في المخرج القديم للطابعة ليس مخرج usp وجعل في أحد الاسلاك أو في كليهما تونزيستور واوصلهما بالمروحة ولا أدري اي ثقوب ادخل تلك الاسلاك أريـــــــــد توضيح ذلك مانوع تونزيستور وما اسمه اريــد شرح العملية هذا كود تشقيل procedure TForm1.Button1Click(Sender: TObject); begin    asm     mov al, 1     in { نسيت ماذا كتب هنا لانها كانت مكتوبة في ورقة }    end; end; هذا كود اقاف تشقيل procedure TForm1.Button2Click(Sender: TObject); begin  asm    mov al, 1    mov dx, 888    out dx, al  end; end; ملاحظة هامة نوع الجهاز كان بنتيوم 1 وكانت العملية عند الضغط فوق الزر الاول تشتقل المروحة وعند الضغط الزر الثاني تتوقف المروحة وكان هذا منذ مدة ونسيت لأنه كان يعلمنا بعض الاشياء في دلفي  
  17. فعلا كان نظام التشغيل ويندوز 98 بارك الله فيك ولكن اذا كان ممكن تفسير أو توضيح ان تفيدنا به ولكم مني جزيل الشكر لكي تعم الفائدة  
  18. مشكورعلى الرد والتوضيح القيم الذي تفضلت به أخي
  19. بسم الله الرحمن الرحيم الصلاة والسلام على رسول الله هل يمكن تحويل من string الى char والعكس هل يمكن تحويل من  Integer الى real  والعكس    
  20. سم الله الرحمن الرحيم الصلاة والسلام على رسول الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين انا مثلا وضعت في قسم "قسم بناء المكونات والأدوات " كل من سؤالين "هل يمكن تحويل من string الى char غيرها " و "استفسار وتوضيح حول هذا الكود تشغيل مروحة واقافها" هل هو المكان المناسب ولم أستطع الدخول الى بعض الاقسام  مثلا " سؤالاً في هذا المنتدى" و "إستكشف الأسئلة"