مشکل در عملکرد کلید Space به عنوان کلید میانبر زمان فارسی بودن ویندوز

[Delphi7_love]

با سلام
من از کلید Space به عنوان کلید میانبر روی فرم استفاده میکنم
ویندوز عوض کردم و حالا حتما باید زبان ویندوز روی انگلیسی باشه تا عمل کنه در غیر اینصورت مثلا اگر در یک ادیت Space بزنیم کرکتر Space زده میشه ولی اون عملی که من میخوام انجام نمیشه

ویندوز 7

[BORHAN TEC]

خواهشاً کد خود را برای بررسی قرار بدین.

[Delphi7_love]

procedure Tfrmdar_chek.TxtCod_MoshKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
32:
begin form2.showmodal;
end;
end

[Mahdi_S_T]

کد مشکلی نداره و باید جواب بده ، شما این کد را در رویداد فرم بنویس و خاصیت keyPreview مربوط به فرم را true کن ، ببین بازم جواب نمیده ؟

[Delphi7_love]

اینو قبلا امتحان کردم ولی بازم مشکل داره

[BORHAN TEC]

شما باید از رویداد KeyPress به شکل زیر استفاده کنید:
procedure TForm3.FormKeyPress(Sender: TObject; var Key: Char);
begin
case Key of
Char(VK_SPACE):
ShowMessage('sdf');
end;
end;
در ضمن خاصیت keypreview را نیز به True ست کنید.

[Delphi7_love]

ممنون دوست عزیز
ولی مشکل چیه ؟ چه تفاوتی داره ؟

[loo30fer]

من همینکار رو کردم مشکلی نداشت؟ :متفکر:
براتون یک نمونه ضمیمه کردم تست کنید ببنید باز این مشکل وجود داره یا نه.

[Delphi7_love]

یه پروِژه در حال نوشتن دارم که حدوده 3 ماهه شروع کردم و در تمامی فرم ها از کلید میانبر استفاده شده و تا 3 روز قبل هیچ مشکلی نداشت و به خوبی کار می کرد ولی وقتی ویندوز رو عوض کردم این مشکل شروع شد . و دیگه کار نکرد