كيف اجعل الزر يعمل مع entrer

[hmidadz]

السلام
كيف يمكنني جعل زر في البرنامج يعمل مع انتر
عندما اضغط على انتري او ادخال في مفتاح المفتيح يتم click1 في الزر
اتمني ان المشكل واضح سلام

[Najy Ibraheem]

السلام عليكم...
اضبط الخاصية Default للزر على True.
سلام.

[SMP3]

PHP كود :

procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

procedure TMain.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 0, 0, VK_RETURN);
end;

procedure TMain.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, 0);
end;

procedure TMain.WMHotKey(var Msg: TWMHotKey);
begin
  inherited;
  if Msg.HotKey = 0 then
    begin
      Button1.Click;
    end;
end; 


[h-farid]

و عليكم السلام و رحمة الله

كود :

Button1.default:=true;

لماذا التعقيد عند توفر حل بسيط

[Najy Ibraheem]

السلام عليكم...

كود :

button1.default:=true;

+1
سلام.

[SMP3]

لماذا التعقيد عند توفر حل بسيط

ليس تعقيد أخي ..
هذه هي الطريقة الصحيحة
حتى تفهم أكثر :
أضف زر جديد للفورم
ضع في الحدث click :

PHP كود :

Caption:='Btn1'; 


ثم أضف زر جديد
ضع في الحدث الزر الثاني :

PHP كود :

Caption:='Btn2'; 


+اضبط خاصية Default للزر 2 على True.
شغل البرنامج و اضغط على زر أنتر !!!!!!!!
----------------------------------------
الخاصية Default مرتبطة بحالة المكونات الاخرى ( Focus )..
+
ماذا لو تم استبدال Button ب SpeedButton ؟؟

[S.FATEH]

السلام عليكم او ببساطة انقل اجعله focused

كود :

Button1.SetFocus;

عندما يكون مفعل عند الضط على enter يعمل عادي