sal1150

هل توجد تقنية برمجيه تجعلني افتح الملف التنفيذي مباشرة من السيرفر الى مستعرض الزبون بدون تنزيله او بمعنى اصح استعراض الـform في مستعرض الويب مباشرة؟

انا سمعت ان DELPHI2005 تدعم العربية ... نامل من يستخدمها يخبرنا !

استخدم beforpost و afterpost

جرب هذا الكود وحاول ان تعدل فيه حسب ماتريد وان اردت مساعده فانا حاضر.......... unit unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Buttons, Menus, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure…

اجبار مربع النص ان لايقبل الا الاعداد من 0 الى 9 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin If not (Key in ['0'..'9', #13]) then Key := #0; end;

هذا الاجراء يجعلك تنقل مؤشر الفارة الى اي عنصر في النموذج procedure SetCursorToControl(Control: TControl); var pt: TPoint; begin pt:=Control.ClientToScreen(Point(0, 0)); SetCursorPos(pt.X, pt.Y) end;

في حدث keypress يمكنك تفعيل زر enter مثلا :- procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=chr(13) then Edit2.SetFocus; end;

يعطيك العافيه اخي عروه اتمنى ان يكون لدي الوقت الكافي للمساهمه في تطوير مشروعك.... انا اعكف حاليا على تطوير مشروع ماسنجر واتمنى ان اجد فرصه لطلب مساعدتك. تقبل تحياتي،،،،،،،،

الاخ عدنان يفضل ان تكون الردود في نفس الموضوع... لن ازيد عن ماقال الاخ دلفي

انا سعيد بانك حليت معضلتك الطرق عديده ولكن ماقمت به هي الابسط والاسهل تحياتي،،،

var Form1: TForm1; i:integer; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin memo1.Lines.Add(inttostr(i)); i:=i+1; end; procedure TForm1.FormCreate(Sender: TObject); begin i:=0; end;

وضح ماذا تعني التحكم بالصوت.... حاول ان تكتب الكلمات الاجنبيه بحروفها حتى نعرف ماذا تقصد... تحيات,,,

const WS_EX_NOINHERITLAYOUT = $00100000; // Disable inheritence of mirroring by children WS_EX_LAYOUTRTL = $00400000; // Right to left mirroring procedure SetWinControlBiDi(Control: TWinControl); var ExStyle: Longint; begin ExStyle := GetWindowLong(Control.Han…

انت مبرمج دلفي فبتالي كل ماتريد متاح بين اناملك نعم تستطيع ان تجعل الفورم في ملف dll وتستطيع ان تستدعيها في تطبيقك وهي احدى الطرق السهلة لتقليل حجم البرنامج اليك هذا الكود library test; { Important note about DLL memory management: ShareMem must be the first u…

الاخ مجرد انسان ادوات ادخال البيانات موجوده انظر الصورة

بالفعل الدلفي لاتدعم unicode ولكن احد المبرمجين المخضرمين في موقع اكسبرتز اخبرني ان دلفي8 تدعم unicode الادوات الموجوده في موقع http://tnt.ccci.org/delphi_unicode_controls/ لاتدعم نظام me و win95

بالنسبة للحجم فليس معضلة بعد ان تطورت الاقراص الصلبة الان كل مايشغلك هو السرعة وهي جدا جيدة مع البرامج المطورة عن طريق دلفي ويمكنك اختصار الحجم باضفة ملفات dll و package

لا تتضايقوا هذا كود قد يفي بالغرض واذا اردت استزاده اخبرني ...! var DC : hDC; theCanvas : TCanvas; hWnd : THandle; bm : TBitmap; r : TRect; begin hWnd := GetDesktopWindow; DC := GetDC (hWnd); theCanvas := TCanvas.Create; theCanvas.Handle := DC; bm := TBitmap.C…

الكود التالي يظهر المؤشر showcursor(true); اما التالي فيخفي الؤشر showcursor(false);

الافكار كما قلت لك كثيره فالمبرمج لاتقف امامه المشكلات خصوصا وانت مبرمج دلفي فكل الافاق التي يراها مبرمجي اللغات الاخرى بعيده فهي عندك قريبه.... قل لي : ماهو مستواك في الدلفي ؟ واي اصدار تستخدم ؟