اضافة short cut button caption

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

المطلوب غير واضح. الرجاء التوضيح:

1. هل تريد إنشاء اختصار (Shortcut) (مثلاً F1) للزر؟

2. هل تريد أن يظهر رمز الاختصار (F1 مثلاً) مع عنوان (Caption) الزر؟

3. هل تريد أن يظهر رمز الاختصار (F1 مثلاً) كتلميح (Hint) عند وضع مؤشر القأرة عليه؟

ما هو المطلوب؟

سلام.

السلام عليكم

لاضافة keyboard shortcut يتم وضع الرمز & قبل الحرف المطلوب انه يكون اختصار

مثال

Button1.Caption:='P&roject';

يظهر تحت الحرف r خط ويستدعى باستخدام مفتاح Alt+r

اما الـ Function key

يتم ضبط خاصية KeyPreview للفورم الى True

مثال

procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key = VK_F1 then Button1Click(Self);
end;

شكرا لكم جميعا للاهتمام ولكن المطلوب كما قال الاخ ناجي وهو

2. هل تريد أن يظهر رمز الاختصار (F1 مثلاً) مع عنوان (Caption) الزر؟

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

الأزرار في دلفي تغطي خاصية الرسم

وبالتالي يتوجب عليك إعادة استدعاء أحد إجراءات الرسم

مثال بإعادة استدعاء Canvas في TSpeedButton

type
    TSpeedButton = class(Buttons.TSpeedButton)//1
    procedure Paint; override;//2
  end;//3
  TForm1 = class(TForm)
    sbShortcut: TSpeedButton;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TSpeedButton.Paint;
begin
  inherited;
  Canvas.TextOut(5, 5, 'F1');//4
end;

أضفت الأسطر 1..4

بالتوفيق.

شكرا للاهتمام والرد وجزاك الله خير