Registracija

MaxLength sa PasteFromClipboard

Odgovori Nova tema

1 odgovor
2.606 pregleda

MaxLength sa PasteFromClipboard 09.03.2006. u 21:15 · pre 251 mesec #1

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;

Re: MaxLength sa PasteFromClipboard 10.03.2006. u 11:13 · pre 251 mesec #2

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

Potpis

Laravel Srbija.

_{[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]}

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme