Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

MaxLength sa PasteFromClipboard

[es] :: Pascal / Delphi / Kylix :: MaxLength sa PasteFromClipboard

[ Pregleda: 2127 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

XGhost

Član broj: 33279
Poruke: 331
*.as54.sa-ma.bih.net.ba.



+1 Profil

icon MaxLength sa PasteFromClipboard09.03.2006. u 20:15 - pre 220 meseci
Kako da se u polje npr Edit1 na koje sam postavio ogranicenje
unosa od npr 4 karaktera sprijeciti dodavanje vise karaktera iz npr
Edit1.Text := Edit2.text ili PasteFromClipboard.
Kad se normalno ukucava tekst opcija MaxLength radi medjutim
problem je kad se dodaje iz nekog drugog izvora kao sto je
ljepljenje iz clipboarda ili drugog izvora kao npr
Edit1.Text := Edit2.text;
 
Odgovor na temu

Nemanja Avramović
Engineering Manager
MENU Technologies
Beograd, Srbija

Član broj: 32202
Poruke: 4391
195.252.99.*

Sajt: https://avramovic.info


+46 Profil

icon Re: MaxLength sa PasteFromClipboard10.03.2006. u 10:13 - pre 220 meseci
OnChange event reshava sve.

edit: Nesto ne mogu da uploadujem faj (slaba veza). Samo ubaci sledeci OnChange event za svoj edit i prob. reshen:

Code:
procedure TForm1.Edit1Change(Sender: TObject);
var mojedit:TEdit;
begin
//definisi edit
mojedit:=(Sender as TEdit);
//ovo je najbitnije
if Length(mojedit.Text)>mojedit.MaxLength then mojedit.Text:=copy(mojedit.Text,0,mojedit.MaxLength);
end;


Ovaj kod bez modifikacija mozes da ubacis u onchange event svakog edit-a (nema veze kako se zove) cak i ako ih imas 32558025 na formi

[Ovu poruku je menjao JaHvram dana 10.03.2006. u 11:31 GMT+1]
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: MaxLength sa PasteFromClipboard

[ Pregleda: 2127 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.