Memoda limiti gostermek
Kod: Kodu kopyalamak için üzerine çift tıklayın! procedure TMain.TimerTimer(Sender: TObject);
var
I: Integer;
begin
I := 125 - Length(Trim(Message.Text));
Max.Text := IntToStr(I);
end;
__________________ SusKun ve Sessiz Mürekkep... Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|