مشكلة في الحدث OnkeyDown

اقرأ ال Help يا اخي هناك شرح واسع عنها و ما هي البامترات و هناك امثلة

يعني قصدك تريد عند النقر على الزر ينفذ الكود اللي في FormKeyDown

هذا هو المطلوب ياعزيزي hazem_3332000.

امل ان يفيدك هذا

case Key of
        VK_RETURN : begin
                        Key := 0;
                        Perform(WM_NEXTDLGCTL,0,0);
                        Key := 0;
                    end;
        VK_ESCAPE : begin
                          Key := 0;
                          if ActiveControl is TRzComboBox then
                          begin
                             Perform(WM_NEXTDLGCTL,0,0);
                          end
                          else
                                btnCloseClick(self);
                        end;
        VK_F2     : begin
                        Key := 0;
                        btnSaveClick(self);
                        Key := 0;
                    end;
        VK_F3     : begin
                        Key := 0;
                        btnClearClick(self);
                        Key := 0;
                    end;
    end;

توجد خاصية اخرى وهي OnKeyPress

الفرق بينها و بين OnKeyDown بأن OnkeyDown يتم تنفيذها عند الضغط على المفتاح وحين رفع الضغط عن المفتاح من الممكن تنفيذ الحدث OnKeyUp

جرب كتابة الكود في الحدث OnKeyDown

If key=vk_return then
Form1.cloro:=clred;

وكتابة الكود في الحدث OnKeyUp

if key=vk_return then
Form1.Color:=Clbalck;

جرب تنفيذ البرنامج بالضغط على مفتاح الادخال لفترة وانظر النتيجة.

يمكنك استخدام الحدث OnKeyPress وهو شبيه بالاحداث السابقة ولكن على ما اعتقد بانه لايمكن معه تنفيذ امر عند الضغط على الزر وآخر عند افلات الزر ويكون تعريف المفتاح عن طريق الرمز الخاص به وليسي عن طريق اسمه جرب كتابة الكود اتي ي الحدث OnKeyPress:

if key=#13 then
Form1.color:=clRed;

نفذ واضغط على مفتاح الادخال

ارجو أن تستفيد من هذا المثال وفقك الله

keydown.zip