المشاركات : 64
المواضيع 18
:
: 0
الإنتساب : Jan 2011
السلام عليكم
وضعت button1 في الفورم
في الخاصية button1=visible=false
لما انفذ البرنامج لايظهر button1 فهذا طبيعي
لكن عندما**** إظهاره لكن بطريقة أخرى بدون الضغط على اي مكون مهما كان
وهي بإختصار لوحة المفاتيح مثلا ctrl+A
بحثت في المنتدى لم الإختصار في الكود سورس
إن أصبت فمن الله وإن أخطأت فمن نفسي ومن الشيطان
المشاركات : 51
المواضيع 13
:
: 0
الإنتساب : Dec 2010
هذا لاخفائه
و هذا لاظهاره
المشاركات : 52
المواضيع 3
:
: 2
الإنتساب : Nov 2010
11-03-2012, 04:41 PM
(آخر تعديل لهذه المشاركة: 11-03-2012, 05:30 PM بواسطة kachwahed.)
كود :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssCtrl in Shift) AND (Key = ord('A'))) then
Button1.Visible := True;
end;
المشاركات : 2,293
المواضيع 157
:
: 81
الإنتساب : Dec 2008
وعليكم السلام ورحمة الله وبركاته
اضبط KeyPreview
موفق.
اللهم احقن دماء المسلمين، لا تنسوهم بالدعاء...
المشاركات : 64
المواضيع 18
:
: 0
الإنتساب : Jan 2011
بارك الله فيكم
إن أصبت فمن الله وإن أخطأت فمن نفسي ومن الشيطان
المشاركات : 64
المواضيع 18
:
: 0
الإنتساب : Jan 2011
السلام عليكم
والله مشكورين على إجاباتكم
للأمانة وجدت في المنتدي فكرة تشبه التي كنت أبحث عنها
وهي إستعمال ActionList1
ونجحت الطريقة
فأصبح لدي حلول كثيرة بفضلكم
شكرا
إن أصبت فمن الله وإن أخطأت فمن نفسي ومن الشيطان
