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




Вниз

Что-нибудь типа ReadOnly. 


LiNkS   (2002-03-28 15:30) [0]

У меня в компоненте RichEdit програмно выделяются и заменяются некоторые слова. Это прокатит, только когда не стоит РидОнли, но мне нужно, чтоб юзер мог выделять текст, копировать его, но не изменять! Как это сделать???



Goblinus   (2002-03-28 15:39) [1]

Программно при установленном ReadOnly = True изменять содержимое RichEdit"a можно, а визуально - нет. Чего-то вы путаете...



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;



LiNkS   (2002-03-28 17:29) [3]

Этот код удаляет любой текст из РичЭдита... :(



MBo   (2002-03-28 18:31) [4]

а у меня нет ;)

а ты разобрался?
добавь
procedure TForm1.RichEdit1Exit(Sender: TObject);
begin
if richedit1.text<>r then
richedit1.text:=r;
end;



MBo   (2002-03-28 19:08) [5]

у меня подразумевается, что заполнение в Design-time
r:=richedit1.text; делай после прогр. изменений



LiNkS   (2002-03-29 08:59) [6]

У меня же все время происходят программные изменения!



MBo   (2002-03-29 09:16) [7]

после каждого программного делай ;)
а из ручных разрешается только перенос куска в другое место
(Dragging или Cut/Paste), отслеживается только длина.



serg   (2002-03-29 09:43) [8]

SelAttributes.Protected:=True;



MBo   (2002-03-29 09:47) [9]

только не SelAttributes, a DefAttributes



serg   (2002-03-29 10:00) [10]

Это уж кому как нада :)




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




Наверх





Память: 0.72 MB
Время: 0.029 c
1-32848           IronHawk              2002-03-27 10:32  2002.04.11  
Приветствую Мастеров ! Прошу бААААльшой помощи, неоткажите....


1-32906           L.eXX                 2002-03-24 21:26  2002.04.11  
Прозрачно-серый фон


3-32645           Makc                  2002-03-19 16:49  2002.04.11  
Проблема с переводом imestamp в более удобочитаемый формат


14-32967          limon                 2002-03-03 22:03  2002.04.11  
Числа Фибоначчи как основа компьютерной логики


14-32975          kat                   2002-03-05 11:13  2002.04.11  
28.02.02 я выиграла музыкальный центр от Европы+. Могут обмануть?