اشتقت اليكم عندي اسئلة :

اخواني نسيت ان اسالكم عن موضوع سبق ان رايته لكني لم اجده ارجو المساعدة

هو امكان تحويل عمل entrée الى عمل tabulation

:) ):

عودا حميدا اخي pati

بالنسبة لموضوع التاريخ يمكنك مراجعة الموضوع هنا ... واتمنى أن يفيدك

http://kdtools.net/forum/showthread.php3?threadid=46

وبالنسبة لتحويل الـenter الى tab

حول خاصية الـKeyPreview للفورم = true

اكتب هذا الكود في حدث keypress

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
if not (ActiveControl is TDBGrid) then begin { if not on a TDBGrid }
Key := #0; 
Perform(WM_NEXTDLGCTL, 0, 0); 
end
else if (ActiveControl is TDBGrid) then { if it is a TDBGrid }
with TDBGrid(ActiveControl) do
if selectedindex < (fieldcount -1) then { increment the field }
selectedindex := selectedindex +1
else
selectedindex := 0;
end;

تحياتي

اخي ASP4DB اشكرك جزيل الشكر وانتظروني بالجديد إن شاء الله

لكني مشغول شيأ ما هذه الايام في اعداد برنامج تسيير syber club

فالى الامام دائما

السلام عليكم ،

بالنسبة للسؤال الأول منع كتابة الأحرف في edit فهو سهل وهذا الكود يفي بالمطلوب ان شاء الله

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if not ( key in ['0'..'9',#8,#32])  then
       key := #0;
end;

اولا مشكور كل من ساهم في الرد

الاخ fsl معرفة خير إن شاء الله

اخوي ASP4DBاشكرك على ماقدمته لي

لكني لااريد استعمال dbgrid بل عندي مجموعة dbedit

وقد قمت بمحاولة طبعا بمساعد الكود الذي اعطيتني اياه

اليك الكود

var

Form1: TForm1;

i:word;

implementation

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

if key = #13 then begin

if i>3 then i:=0;

if (form1.Components is tdbedit ) then

begin

(form1.components as tdbedit ).setfocus;

i:=i+1;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

i:=0;

end;

end.

لكن عندما اضيفه الى برنامجي لايعمل :

indice de liste hors limites [0]

ضع خاصية KeyPreview للفورم الى TRUE

ضع النص التالي في حدث OnKeyDown للفورم

if Key=VK_RETURN then    
SelectNext(CurControl. GoForward, CheckTabStop);
GoForward: True if the next control need to be selected.... or False if the Previus control need to be selected...
CheckTabStop: True to check if the control accept the focus by tab..

وهو سيعمل مع الـDBEdit وكذلك الـDBGrid

تحياتي لك

اخي ASP4DB اشكرك جزيل الشكر الكود نجح

وفقنا الله