View Full Version : تغییر یک حرف بعد از Paste روی Edit
Saeid59_m
شنبه 25 اسفند 1386, 14:45 عصر
سلام
دوستان کدی برای تغییر حروف "ی" و "ک" داده بودند که روی رویداد onkeypress می نوشتیم . این کد زمانی که متنی از جای دیگر در Edit کپی می شود کار نمی ده . راه حل چیست ؟
SYNDROME
شنبه 25 اسفند 1386, 16:37 عصر
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
یک شنبه 26 اسفند 1386, 07:15 صبح
خوب از کجا بفهمم که Paste شده ؟
SYNDROME
یک شنبه 26 اسفند 1386, 07:30 صبح
خوب از کجا بفهمم که Paste شده ؟
از رویداد Onchange.
در ضمن نیاز نیست همان لحظه اصلاح کنید.بهتر است در هنگام ذخیره در بانک عمل فوق را انجام دهید.
موفق باشید
Saeid59_m
یک شنبه 26 اسفند 1386, 10:15 صبح
آخه کاربر از من خواسته که این مشکل رو براش حل کنم . اونم در زمان دیدن اگه روی رویداد Onchange بنویسم مکان نما محلش عوض می شه .
SYNDROME
یک شنبه 26 اسفند 1386, 12:23 عصر
آخه کاربر از من خواسته که این مشکل رو براش حل کنم . اونم در زمان دیدن اگه روی رویداد Onchange بنویسم مکان نما محلش عوض می شه .
محل قرار گرفتن کرسر را قبل از عملیات فوق نگهداری کن و بعد از پایان عملیات به جای قبلی بر گردان.
Edit1.SelStart
مقدار فوق را در یک متغییر نگهداری کن و بعد از پایان عملیات مقدار را دوباره داخل selStart بریز.
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.