Odaklanmayı Editten Diğerine Atlatma

Yazdığınız makaleleri ve üyelerimizin işine yarayacağını düşündüğünüz kodlarınızı gönderebilirsiniz. Bu foruma soru sormayın!
Cevapla
RamazanG
Üye
Mesajlar: 73
Kayıt: 16 Tem 2010 03:38

Odaklanmayı Editten Diğerine Atlatma

Mesaj gönderen RamazanG »

Makale: Zarko Gajic.
Ç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;
Not : Yukarıdaki kodu Edit1in OnChange olayına yazın
Cevapla