Memoda limiti gostermek

DrogbA

DrogbA

Forum Üyesi
Katılım
27 Ara 2020
Mesajlar
3,440
Tepkime puanı
0
Puanları
36
Kod: 
procedure TMain.TimerTimer(Sender: TObject);
var
  I: Integer;
begin
  I := 125 - Length(Trim(Message.Text));
  Max.Text := IntToStr(I);
end;
 
Admin

Admin

Owner
Kurucu Admin
Katılım
13 Mar 2019
Mesajlar
7,679
Tepkime puanı
43
Puanları
48
Yaş
36
Konum
istanbul
Web sitesi
www.isgir.com
Cinsiyet
  1. Bay
Takım
Tarafsız
Paylaşım için teşekkürler hocam.
 
Peri

Peri

Co Admin
Katılım
2 May 2020
Mesajlar
4,949
Tepkime puanı
17
Puanları
36
Takım
Beşiktaş
Teşekkürler
 
Cevap yazmak için giriş yap yada kayıt ol.
metal işleme - Tiktok video indir
Üst