Çeviri: Ramazan Gülbahar.
Tab tuşuna basmadan Tab tuşu kullanmak gibi...
Kod: Tümünü seç
procedure TForm1.Edit1Change(Sender: TObject) ;
begin
if Sender is TCustomEdit then
with Sender as TCustomEdit do
if MaxLength = GetTextLen then
self.SelectNext(TCustomEdit(Sender), true, true) ;
end;