Скачать: CL | DM;

Мемо только для просмотра   Найти похожие ветки 

← →
harismatik   (2003-01-18 15:11) [0]

Как сделать Мемо только для просмотра его содержимого. Чтоб можно было только посмотреть и никаким образом нельзя было бы это сохранить?

---

← →
Delirium^.Tremens ©   (2003-01-18 15:13) [1]

ReadOnly ?

---

← →
Delirium^.Tremens ©   (2003-01-18 15:14) [2]

> никаким образом нельзя было бы это сохранить

В смысле защиту от Ctrl+C и т.п. ?

---

← →
harismatik   (2003-01-18 15:26) [3]

Да!!! Именно так!!! Знаешь как это сделать?

---

← →
mrcat ©   (2003-01-18 15:28) [4]

harismatik (18.01.03 15:26)

Enabled := false
=)))))

---

← →
harismatik   (2003-01-18 15:32) [5]

Не годится. Если текст длинный, при Enabled=False мемо нельзя прокрутить вниз-вверх.
Какие еще варианты?

---

← →
mrcat ©   (2003-01-18 15:33) [6]

harismatik (18.01.03 15:32)

Отлавливай копирование и очищай в буфере обмена...
(во извращение-то =)))))

---

← →
Delirium^.Tremens ©   (2003-01-18 15:35) [7]

mrcat © (18.01.03 15:33)
> Отлавливай копирование и очищай в буфере обмена...

Clipboard.Enable := false;
:-) :-) :-)

---

← →
harismatik   (2003-01-18 15:40) [8]

2 Delirium^.Tremens

А откуда ты взял такое свойство? Нет у клипборда такого :(

---

← →
Delirium^.Tremens ©   (2003-01-18 15:41) [9]

harismatik (18.01.03 15:40)

Да, пора тебе перекурить, шуток не понимаешь?

---

← →
Eraser@YYY   (2003-01-18 15:45) [10]

Хорош прикалываться, можно помоему в ScrollBox закинуть StaticText или Label с включёным WordWrap.

---

← →
harismatik   (2003-01-18 15:46) [11]

2 Delirium^.Tremens

Понятно. Просто понимаешь, ну ОЧЕНЬ-ОЧЕНЬ это надо сделать.
Неужто никто не знает?
А отлавливание Ctrl+C или Ctrl+Insert через KeyDown не получается - все равно в клипбоарде оказывается содержимое Мемо
:(

---

← →
Song ©   (2003-01-18 18:22) [12]

Надо ловить не Ctrl-C, а WM_COPY

---

← →
Sha ©   (2003-01-18 20:50) [13]

procedure TForm1.dataMemoKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Key:=0;
end;

procedure TForm1.dataMemoKeyPress(Sender: TObject; var Key: Char);
begin
Key:=#0;
end;

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c