Мемо только для просмотра

← →
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 не получается - все равно в клипбоарде оказывается содержимое Мемо
:(

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

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;

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