Kopierlänge Edit1 beschränken !

[Volker Z.]

Hallo,

aus der OH

Zitat:

Wenn Sie MaxLength und einen Text zuweisen, wird existierender Text nicht abgeschnitten. Der Benutzer wird nur daran gehindert, weitere Zeichen einzugeben, nachdem das Limit von MaxLength Zeichen erreicht wurde.

also

Delphi-Quellcode:

Edit1.MaxLength := 7;
Edit1.Text:= Copy (Listbox1.Items[ListBox1.Itemindex], 1, Edit1.MaxLength);

Gruß