Maskeditin İlk Karakterinin Sifir Girilmesini Engelleme
   
Arkadaşlar yaptığım programda telefon girişi yapılıyor.Bende bunun için maskedit kullandım.Ancak yanlış girişleri önlemek için, girilen ilk rakamı kontrol etmek istiyorum(ilk rakamın sıfır girilmesini engellemek istiyorum).Bunu nasıl yapabilirim Yardımcı olursanız sevinirim.

      procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
       begin
         if not (Key in [#8, '0'..'9']) then
         begin
          ShowMessage('Geçersiz Karakter: ' + Key);
          Key := #0;
        end
       else if (Key = '0') and
                 ((Sender as TMaskEdit).SelStart = 0) then begin
          ShowMessage('İlk rakam sıfır olamaz ');
          Key := #0;
        end;
     end;


---------------------------------------------------
kendi sorduğum soruya cevabınıda vereyim
soruyla ilgilenen arkadaşlarada teşekküler
NOT:Alıntıdır.(başkasının emeğini çalmak olmaz)