Delphi Edit komponentasi bu foydalanuvchi kiritish uchun bitta qatorli matn maydoni. Asosiy xususiyat Delphi Edit

procedure  TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Caption:=IntToStr(Key);
end;
KeyPress    ishlov beruvchisida siz parol kiritish tartibini yozishingiz mumkin . Odatda parolni kiritishda bosilgan belgi o'rniga '*' belgisi ko'rsatiladi . Ushbu effektga erishish uchun biz avval kalit o'zgaruvchini Pass global o'zgaruvchisiga saqlaymiz , so'ngra uni yulduzcha bilan almashtirib, qayta aniqlaymiz. Aniqlik uchun men Forma sarlavhasida "parol" so'ziga teng parolni ko'rsataman :)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin   Pass:=Pass+Key;   Key:='*';   Caption:=Pass; end;

   Savol tug'iladi, qanday qilib umuman klaviaturadan belgi kiritishni taqiqlash mumkin? Delphi Edit komponentining kirish maydonida biron bir belgi paydo bo'lmasligi uchun (va haqiqatan ham har qanday ma'lumotlarni kiritish komponentasi), siz uning belgisini KeyPress ishlov beruvchisidagi "hech qanday belgi" belgi kodiga qayta belgilashingiz kerak ! "Belgisiz" kodi # 0 . Shunday qilib, siz faqat ma'lum belgilarni kiritishga ruxsat berishingiz mumkin.
   Masalan, faqat raqamlarni kiritish uchun dastur yozaylik. Buning uchun kiritish uchun ruxsat berilgan belgilar to'plamini yarating . Dasturda biz kiritilgan belgining ruxsat etilganlar qatoriga kiritilganligini tekshiramiz, agar bo'lmasa, uning ko'rinishini taqiqlaymiz:    Va mana Delphi tahrirlash komponentasi uchun modul matni

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const Digit: Set of Char=['0' .. '9'];
begin
if not (Key in Digit) then
 Key:=#0;
end;

faqat sonlarni, shu jumladan, raqamlarni kiritish va o'chirish uchun barcha operatsiyalarni ta'minlaydi. Bu faqat ikkita protseduradan foydalanadi. Ulardan biri faqat yaroqli belgilar kiritilishini ta'minlaydi, ikkinchisi olingan raqamni tuzatib, bizning tanish, odatiy shaklimizga keltiradi. KeyUp

   ishlov beruvchisiga kelsak , uning ishlatilishi KeyDown ishlov beruvchisini ishlatishga o'xshaydi , faqat OnKeyUp hodisasi kalit qo'yilganda sodir bo'ladi.    Va nihoyat, Delphi Edit komponentasida dasturiy kursorni boshqarish va matn tanlash imkoniyati to'g'risida. Ushbu vazifalarni bajarish uchun xususiyatlardan foydalaning