Edit Maxlength

[hido]

İyi akşamalar;


Propertiesden edit maxlength 50 olarak ayarladım, fakat telefonda edite krakter girişi 100 lerce oluyor bu durumu nasıl çözerim...

[fesiharslan]

Merhaba;
Delphi'nin hangi versiyonunu kullanıyorsunuz?

[hido]

Berlin 10.1 kullanıyorum;

[fesiharslan]

Henüz test etme imkanım olmadı. Embarcadero tarafından yapılan açıklamada bu sorunun çözüldüğü söyleniyor. (Delphi XE8 Bug Fix 129171
On Android app, MaxLength of TEdit does not work link: http://edn.embarcadero.com/article/44358)
Yani Delphi XE7 ve daha alt sürümlerde bu sorun vardı. Fakat Delphi XE8 ve daha üst sürümlerinde bu sorun düzeltildi deniyor.

Geçici bir çözüm yolu önerebilirim.
Edit'in OnKeyDown olayına;

Kod: Tümünü seç

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
if Length(Edit1.Text)>=5 then
  KeyChar:=#0;
end;

Yazarak Edit'in metinsel uzunluğunu kısıtlayabilirsiniz.

[hido]

Henüz test etme imkanım olmadı. Embarcadero tarafından yapılan açıklamada bu sorunun çözüldüğü söyleniyor. (Delphi XE8 Bug Fix 129171
On Android app, MaxLength of TEdit does not work link: http://edn.embarcadero.com/article/44358)
Yani Delphi XE7 ve daha alt sürümlerde bu sorun vardı. Fakat Delphi XE8 ve daha üst sürümlerinde bu sorun düzeltildi deniyor.

Geçici bir çözüm yolu önerebilirim.
Edit'in OnKeyDown olayına;

Kod: Tümünü seç

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char
  Shift: TShiftState);
begin
if Length(Edit1.Text)>=5 then
  KeyChar:=#0;
end;

Yazarak Edit'in metinsel uzunluğunu kısıtlayabilirsiniz.

"Embarcadero tarafından yapılan açıklamada bu sorunun çözüldüğü söyleniyor" Çözememişler

Hatta bu kodlarda etkisiz kalıyor...

Kod: Tümünü seç

if Length(Edit1.Text)>=5 then
  KeyChar:=#0;
end;