ورود

View Full Version : تعریف کلیدهای ترکیبی



سیروس مقصودی
چهارشنبه 14 شهریور 1403, 11:31 صبح
با سلام
من چگونه میتوانم از کلیدهای ترکیبی جهت انجام کاری استفاده کنم مثلا میخواهم کلیدهای Ctrl+F3 را برای انجام دادن کاری تعریف کنم کد کلید Ctrl+F3 را چگونه بایستی تعریف کنم
با تشکر

mbshareat
چهارشنبه 11 مهر 1403, 09:15 صبح
سلام علیکم
حالتون خوبه؟
میخواید این ترکیب کلید رو در KeyDown استفاده کنید یا هات کی؟
برای KeyDown این مثال خوبه:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
If (Shift=[ssCtrl]) and (Key=114{F3}) then
ShowMessage('Yes!');
end;

البته اگر میخواید در هر کامپوننتی که هستید از این کد استفاده کنید KeyPreView فرم رو true کنید.
در مورد هات کی توضیح مفصلتره ولی فکر نکنم نیاز داشته باشید.