shortcut

[tazekar]

سلام
برای bitbtn (باتونهای بخش additional) چطور shortcut میگذارند ؟ :oops:

[Behzad_Asharkhan]

سلام

اگر برای Bitbtn1 در قسمت Caption عبارت Bitbtn1& را تایپ کنی حرف B بصورت B نمایش داده میشود و با کلیدهای Alt+B رویداد OnClick اجرا میشود.

[tazekar]

ممنون بهزاد جان
اگه خواستم از کلیدهای تابعی و یا Esc و ... استفاده کنم چی ؟ :o

[Behzad_Asharkhan]

اونم میشه.

اول باید خاصیت KePreview فرم را True کنی.
بعدش هم برای همه کلیدها مثل کد زیر بنویسی. 8)


procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Shift = [ssAlt]) and (Key = VK_F3) then // Alt + F3
begin
if bitbtn1.Enabled then bitbtn1.Click();
end
else if (Key = VK_ESCAPE) then // ESC
begin
if bitbtn2.Enabled then bitbtn2.Click();
end;
end;

[tazekar]

مرسی عزیز :oops: