إستفسار إظافة إختصرات للأزرار

الأفضل أن يكون الاختصار حرف من حروف كلمة الزر

لعمل ذلك هناك طريقة سهلة مثلا : New نريدها عبر الضغط على ALT+N ، ما عليك إلا كنابة في Caption للزر New& وهكذا يصبح New

أما إذا أردت الإختصار حرف من وسط الكلمة ما عليك إلا إضافة & قبل الحرف المراد ، مثلا نريد ALT+E اختصار لـ New إذا في Caption نكتب N&ew فيصبح لديك New

الطريقة الأخرى هي استعمال ActionList ثم تتعامل مع ShortCut و SecondaryShortCuts أنظر Help للمزيد من المعلومات

و في Menu توجد خانة ShortCut

و السلام

السلام عليكم

هناك عده طرق لهدا وانا افضل هده الطريقة

اضافة المكون ActionList1

الصورة توضح اكثر

لاتنسى نفل الكود الموجود في الازرار الى الحدث

Action1Execute

procedure TForm1.Action1Execute(Sender: TObject);
var choix: integer;
begin
//procedure TForm1.Button4Click(Sender: TObject);

choix:=MessageBox(Handle, pchar('ÃäÊ Úáì æÔß ÍÐÝ ãÚáæãÇÊ ãåãÉ ¡åá ÊÑíÏ ÇáãÊÇÈÚÉ') , pchar('ÊÍÐíÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÑ'), 308);	 //appel de la MessageBox

	 If choix=6 then	 //si clic sur oui
	 begin
	 Table1.Delete;//taper ici le code correspondant
	 end;

	 If choix=7 then	 //si clic sur non
	 begin
			  //taper ici le code correspondant
	 end;
end;

لقد جربت الحل وعمل بنجاح

بارك الله فيكم إخواني عبد العالي ومروان على المساعدة وعلى الحلول المتنوعة

دمتم في خدمة المنتدى والله يجازيكم

الطريقة باستخدام اكشن جديدة علي سأجربها