Доброго дня!
Подскажите как можно проконтролировать количество внесенных знаков в Memo. Я пробовал таким методом, с пуском таймера, не работает. Может подскажите метод попроще?!
Код HTML:
procedure TForm2.Memo1Click(Sender: TObject);///Пуск таймера
begin
MemControl1;
end;
procedure TForm2.MemControl1;
begin
If Memo1.MaxLength > 1860
Then MessageBox(handle,PChar('Внесенные данные не умещаются на листе. '+#13#10), PChar('Информация'), 48);
end;