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

MaxLength sa PasteFromClipboard

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

[ Pregleda: 878 | Odgovora: 1 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

XGhost

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



Profil

icon MaxLength sa PasteFromClipboard09.03.2006. u 20:15

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;
09.03.2006. u 20:15 

Nemanja Avramović
PHP developer, Webinsane
Mladenovac, Srbija

Član broj: 32202
Poruke: 3992
195.252.99.*

ICQ: 266136396
Sajt: www.avramovic.info


Profil

icon Re: MaxLength sa PasteFromClipboard10.03.2006. u 10:13
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]
Moj sajt. Moj blog. Moj avatar. Moj grad. Moja frizura.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
10.03.2006. u 10:13 

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

[ Pregleda: 878 | Odgovora: 1 ]

 Postavi temu Odgovori

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