+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : إختصار لوحة المفاتيح (/showthread.php?tid=3987)
إختصار لوحة المفاتيح - magicabdou - 11-03-2012
السلام عليكم
وضعت button1 في الفورم
في الخاصية button1=visible=false
لما انفذ البرنامج لايظهر button1 فهذا طبيعي
لكن عندما**** إظهاره لكن بطريقة أخرى بدون الضغط على اي مكون مهما كان
وهي بإختصار لوحة المفاتيح مثلا ctrl+A
بحثت في المنتدى لم الإختصار في الكود سورس
إختصار لوحة المفاتيح - DAMAX2010 - 11-03-2012
PHP كود :
button1.visible=false;
هذا لاخفائه
PHP كود :
button1.visible=true;
إختصار لوحة المفاتيح - ferrero - 11-03-2012
كود :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((ssCtrl in Shift) AND (Key = ord('A'))) then
Button1.Visible := True;
end;إختصار لوحة المفاتيح - kachwahed - 11-03-2012
وعليكم السلام ورحمة الله وبركاته
اضبط KeyPreview
موفق.
إختصار لوحة المفاتيح - magicabdou - 11-03-2012
بارك الله فيكم
إختصار لوحة المفاتيح - magicabdou - 11-03-2012
السلام عليكم
والله مشكورين على إجاباتكم
للأمانة وجدت في المنتدي فكرة تشبه التي كنت أبحث عنها
وهي إستعمال ActionList1
ونجحت الطريقة
فأصبح لدي حلول كثيرة بفضلكم
شكرا