![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Мемо только для просмотра [D5, WinXP]
harismatik © (2003-01-18 15:11:00)Как сделать Мемо только для просмотра его содержимого. Чтоб можно было только посмотреть и никаким образом нельзя было бы это сохранить?
Sha (2003-01-18 20:50:00) [1]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;
Song (2003-01-18 18:22:00) [2]Надо ловить не Ctrl-C, а WM_COPY
harismatik (2003-01-18 15:46:00) [3]2 Delirium^.Tremens
Понятно. Просто понимаешь, ну ОЧЕНЬ-ОЧЕНЬ это надо сделать.
Неужто никто не знает?
А отлавливание Ctrl+C или Ctrl+Insert через KeyDown не получается - все равно в клипбоарде оказывается содержимое Мемо
:(
Eraser@YYY (2003-01-18 15:45:00) [4]Хорош прикалываться, можно помоему в ScrollBox закинуть StaticText или Label с включёным WordWrap.
Delirium^.Tremens (2003-01-18 15:41:00) [5]harismatik (18.01.03 15:40)
Да, пора тебе перекурить, шуток не понимаешь?
harismatik (2003-01-18 15:40:00) [6]2 Delirium^.Tremens
А откуда ты взял такое свойство? Нет у клипборда такого :(
Delirium^.Tremens (2003-01-18 15:35:00) [7]mrcat © (18.01.03 15:33)
> Отлавливай копирование и очищай в буфере обмена...
Clipboard.Enable := false;
:-) :-) :-)
mrcat (2003-01-18 15:33:00) [8]harismatik (18.01.03 15:32)
Отлавливай копирование и очищай в буфере обмена...
(во извращение-то =)))))
harismatik (2003-01-18 15:32:00) [9]Не годится. Если текст длинный, при Enabled=False мемо нельзя прокрутить вниз-вверх.
Какие еще варианты?
mrcat (2003-01-18 15:28:00) [10]harismatik (18.01.03 15:26)
Enabled := false
=)))))
harismatik (2003-01-18 15:26:00) [11]Да!!! Именно так!!! Знаешь как это сделать?
Delirium^.Tremens (2003-01-18 15:14:00) [12]
> никаким образом нельзя было бы это сохранить
В смысле защиту от Ctrl+C и т.п. ?
Delirium^.Tremens (2003-01-18 15:13:00) [13]ReadOnly ?