السلام عليكم
OnShiftPress ماذا تريد أن تفعل...
هناك متغير TShiftState معرف باسم Shift يسمح لك بالتعرف على زر التحكم المضغوط، مثال (بطريقتين للاستعمال):
تجده في الحدث OnKeyDown و OnKeyUp ويمكن استعماله بطريقة أخرى في إجراءات أخرى.
OnShiftPress ماذا تريد أن تفعل...
هناك متغير TShiftState معرف باسم Shift يسمح لك بالتعرف على زر التحكم المضغوط، مثال (بطريقتين للاستعمال):
كود :
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssCtrl in Shift then
ShowMessage('[Ctrl] in hold!');
if Shift = [ssAlt, ssShift] then
ShowMessage('[Alt] and [Shift] are in hold!');
end;