Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Вниз

Что-нибудь типа ReadOnly.   Найти похожие ветки 

← →
MBo   (2002-03-28 16:07) [2]

извращаться надо
var r:string;


procedure TForm1.RichEdit1Change(Sender: TObject);
var s:string;
lr,ls,lt:integer;
begin
s:=clipboard.astext;
ls:=length(s);
lr:=length(r);
lt:=length(richedit1.text);
if lt=lr then begin
r:=richedit1.text;
exit
end;
if lr<>ls+lt then
richedit1.text:=r;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
r:=richedit1.text;
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c