, mulighed for at falske har nogle bivirkninger...,,, at brugeren fra udvælgelsen af tekst i et memo kontrol,,,,, at den letteste måde ville være at fastsætte mulighed for ejendom af memo (eller redigere) kontrol med falske, således at kontrollen ikke kan få hændelser.denne ulempe ved denne metode er brugeren, vil ikke være i stand til at rulle teksten og handicappede tekst ser slemt ud.,,, for at forhindre, at brugeren skriftligt notat, vi sætter sin readonly ejendom.,,, for at forhindre, at brugeren udvælger tekst med mus, vi skaber kontakt i tilfælde af kontrol - og mousemove skrive følgende kode:,,, procedure tform1. memo1mousemove (afsender: tobject;, skift: tshiftstate; x, y: heltal), begynder, hvis ssleft i skift så, memo1.sellength: = 0,,,,,,,, så for at forhindre, at brugeren foretager en udvælgelse af tastaturet, skaber vi de kontanthåndterende virksomheder i keydown og keyup begivenheder, idet onkeydown og onkeyup egenskaber de samme procedure:,,,, procedure tform1. memo1keydownup (afsender: tobject;,, var vigtige: ord; skift: tshiftstate), begynder, hvis (ssshift i skift) og (nøgle i [vk_left, vk_right, vk_up,,, vk_down, vk_prior, vk_next, vk_home, vk_end]), central: = 0,,,,,,, du kan finde den fulde kildekode af denne artikel i arkivet, der ledsager pascal nyhedsbrev,