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

نسخة كاملة : إختصار لوحة المفاتيح
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

وضعت button1 في الفورم


في الخاصية button1=visible=false

لما انفذ البرنامج لايظهر button1 فهذا طبيعي


لكن عندما**** إظهاره لكن بطريقة أخرى بدون الضغط على اي مكون مهما كان

وهي بإختصار لوحة المفاتيح مثلا ctrl+A


بحثت في المنتدى لم الإختصار في الكود سورس
PHP كود :
button1.visible=false; 

هذا لاخفائه
PHP كود :
button1.visible=true; 
و هذا لاظهاره
كود :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ((ssCtrl in Shift) AND (Key = ord('A'))) then Button1.Visible := True; end;
وعليكم السلام ورحمة الله وبركاته
اضبط KeyPreview
موفق.
بارك الله فيكم
السلام عليكم

والله مشكورين على إجاباتكم

للأمانة وجدت في المنتدي فكرة تشبه التي كنت أبحث عنها

وهي إستعمال ActionList1

ونجحت الطريقة

فأصبح لدي حلول كثيرة بفضلكم

شكرا