فراتر از Edit معمولی دلفی 7

[aks2download]

کسی میدونه چطور میشه در edit وقتی عدد وارد می کنیم از چپ به راست مثل ماشین حساب ویندوزبشه؟؟؟
من یه ماشین حساب نوشتم که وقتی اعداد را وارد میکنم از چپ به راست اعداد نمایش داده می شود در صورتی می خواهم از راست به چپ اعداد وارد شود
کسی راه حلی داره؟
کسی شی دیگری به نظرش نمیرسه؟؟؟؟

[hojjatcroos]

عزیز من این که فکر نمی خواهد BIDI رو RightToLeft کن.

[جواد ملاولی]

سلام.

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((Key >= 96) and (Key <= 105)) OR ((Key >= 48) and (Key <= 57)) then
Edit1.BiDiMode := bdLeftToRight
else
Edit1.BiDiMode := bdRightToLeft;
end;

[aks2download]

عزیز من این که فکر نمی خواهد BIDI رو RightToLeft کن.
آیا راه حلی برای انگلیسی نوشتن داری؟؟؟؟؟؟؟؟؟؟؟