delphi4arab منتديات دلفي للعرب

السلام عليكم

الكثير يعلم أنه عند كتابه كود البحث في Edit.text تبدأتظهر النتائج بمجرد كتابه الحرف الأول ولكن عند إكمال الكتابه تحول الكريسور إلى خانه فارغه في الفورم بمجرد إيجاد الشخص المرااد البحث عليه والضغط على Enter
مثلا
Edit.text هذا الحقل الذي تكتب به حروف البحث وكما قلنا سابقا بمجرد كتابه الحرف الأول يبدأ بالفلتره أي إظهار الأسماء التي تبدأ بذلك الحرف وهذا مع بقيه الحروف الثاني والثالث

والأسماء تظهر في DBedit خاص بالإسم والآخر خاص ب اللقب
وبمجرد الضغط على Enter يذهب إلى DBedit الخاص بتاريخ الميلاد

كيف يكون الكود وجزاكم الله خيرا

اضن انك الاخ كمال
لان هذا السؤال مر علي البارحة
و اذا لم تكن فالمعذرة و الجواب هو
في حدث Onkeypressup الخاص بالمكون الذي تريد الانتقال منه و هو هنا في حالتكEdit اكتب
if (Key = #13) then و هو الذي يتحقق اذا ضغطت على الزر دخول فاذا كان نعم
dbedit2.setfocus; اي ضع المؤشر على المكون لكي تكتب عليه مباشرة

جزاك الله خيرا أخي
أنا لست الأخ كمال
كما أسأل في نفس الموضوع في الأكسس يمكن التنقل بين Edit بجرد التقر على زر Enter
;dlmkm jvjdf hgohkhj flukn uk$ hgayù ugn ُىفثق يذهب إلى Edit 1 ثم Edit2 ووو حسب ما أمرته به اي على حسب الترتيب الذي وضعته أين أجد هذه الخصيه

كلامك غير مفهوم

OnKeyPress
--------------

كود :
if (Key = #13) then
      begin
        Key := #0;
        Perform(WM_NEXTDLGCTL, 0, 0);
      end;

السلام عليكم
للانتقال حسب tab order
غير خاصية KeyPreview للـ Form الى True
في حدث OnKeyPress للـ Form

PHP كود :
procedure TForm2.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    SelectNext(ActiveControl, True, True);
end; 

في حالة اردت الانتقال الى مكون محدد مثلا Edit2 عند الضغط على Enter مثلا في الـ Edit1
في حدث OnKeyPress للـ Edit1

PHP كود :
procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Edit2.SetFocus;
end; 

ALG2009

rahiche

ALG2009

rahiche

ferrero

S.FATEH