fi to fa

[lord_viper]

با سلام
من یه برنامه fitofaدارم مینویسم که 2 با ممو داره کلیدهای فارسی رو نوشتم براش ولی نمیدونم برای دکمه های spaceو interچکار کنم و در ضمن bidimode memo2رو چطور تنظیم کنم که حالت نوشتن توmemo2از راست به چ÷ بشه
با تشکر

[m-khorsandi]

درود
BidiMode میبایست برابر با bdRightToLeft باشه تا به صورت راست چین نمایش داده بشه.
در مورد برنامه ایی که مینویسید بیشتر توضیح بدید، تا اطلاعات بهتری بدست بیارید.

[MNosouhi]

کلید های فاصله و اینتر رو باید خودتون مدیریت کنید.
بگو دقیقا کجاش گیر کردی تا کمکت کنیم

[lord_viper]

من درmemo2 charset,font,bidiرو عوض کردم و در رویداد onkeydown memo1از این دستور برای شبیه سازی استفاده کردم
if key=65 then
memo2.text:=memo2.text+'ا';
استفاده کردم حالا نمیدونم enterوspaceرو برای memo2چیکار کنم

[m-khorsandi]

از این کد استفاده کنید:


procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Case Key of
13: ShowMessage('Enter...');
32: ShowMessage('Space');
end;
end;

[Naficy]

در رویداد OnKeyDown چیزی که در پارامتر Key برای شما ارسال می شود Virtual Key Code است.
اگر به هلپ دلفی هم مراجعه کرده بودید (ذیل همین OnKeyDown) لینکی می یافتید به جدولی مربوط به همین کدها. برای enter و space هم از VK_Rerturn و VK_Space استفاده کنید.

ضمنا بجای اینکه از

memo2.text:=memo2.text+'ا';
استفاده کنید، خود مقدار پارامتر Key را تغییر دهید.
ضمنا رویداد OnKeyPress برای کار شما بهتره چون از Virtual Key Code استفاده نمی کنه.