اصلاح کارکترهای "ک"درزمان ورود.
یک فرم Master بسازید وKeyPreview مربوط به فرم را True و در رویداد KeyPress مربوط به آن کد زیر را بنویسید
کد:
procedure TMaster.MyEdit2KeyPress(Sender: TObject; var Key: Char);
begin
IF Key = #223 then Key := #152;
IF Key = #236 then Key := #237;
end;
حالا همه فرمهای را از کلاس این فرم می سازم.
کد:
TForm1 = class(TMaster)
حالا هر زمان کاربر کلید"ک" را بزند و کد مربوط #223 باشد به #152 تغییر میکند.
و اگر کلید "ی" با کد #236 زده بشود به #237 تبدیل می شود.
حالا بنده دو سوال داشتم.
1-نظر شما دوستان در رابطه با این کار چی است؟خوب است یا بد و همچنین دلیل خود را بیان کنید.
2-اگر روشی بهتر و سریععتر از این داریدپیشنهاد کنید.
