تغییر یک حرف بعد از Paste روی Edit

[Saeid59_m]

سلام
دوستان کدی برای تغییر حروف "ی" و "ک" داده بودند که روی رویداد onkeypress می نوشتیم . این کد زمانی که متنی از جای دیگر در Edit کپی می شود کار نمی ده . راه حل چیست ؟

[SYNDROME]

Edit را در یک متغیر رشته ای بریز و سپس کاراکتر به کاراکتر چک کن.


S := Edit1.Text;
For i := 1 To Length(S) Do
Begin
IF Ord(S[i]) = 50 Then
Caption := Caption + '1';
End;

به جای 50 کد کاراکتر "ی" و "ک" را قرار بده.
موفق باشید

[Saeid59_m]

خوب از کجا بفهمم که Paste شده ؟

[SYNDROME]

خوب از کجا بفهمم که Paste شده ؟
از رویداد Onchange.
در ضمن نیاز نیست همان لحظه اصلاح کنید.بهتر است در هنگام ذخیره در بانک عمل فوق را انجام دهید.
موفق باشید

[Saeid59_m]

آخه کاربر از من خواسته که این مشکل رو براش حل کنم . اونم در زمان دیدن اگه روی رویداد Onchange بنویسم مکان نما محلش عوض می شه .

[SYNDROME]

آخه کاربر از من خواسته که این مشکل رو براش حل کنم . اونم در زمان دیدن اگه روی رویداد Onchange بنویسم مکان نما محلش عوض می شه .
محل قرار گرفتن کرسر را قبل از عملیات فوق نگهداری کن و بعد از پایان عملیات به جای قبلی بر گردان.


Edit1.SelStart

مقدار فوق را در یک متغییر نگهداری کن و بعد از پایان عملیات مقدار را دوباره داخل selStart بریز.
موفق باشید