MaxLength sa PasteFromClipboard

[ XGhost @ 09.03.2006. 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;

[ Nemanja Avramović @ 10.03.2006. 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]}