Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.12.12;
Скачать: CL | DM;

Вниз

RichEdit & Paste   Найти похожие ветки 

 
Sfagnum ©   (2003-10-15 16:08) [0]

Хочу запретить вставлять в RichEdit всё, кроме неформатированного текста, типа как в TMemo...
Можно ли как то это задать или опять ручками?
В RichEdit"е можно узнать какие форматы могут быть вставлены с помощью EM_CANPASTE...


 
Sfagnum ©   (2003-10-16 13:05) [1]

Если это не возможно то может кто подскажет как перехватить WM_PASTE или EM_PASTESPECIAL, если конечно это можно сделать...


 
Sfagnum ©   (2003-10-16 17:25) [2]

Вообщем кому интересно реализовал следущим образом на WM_KEYDOWN ловлю нажатия Shift+Insert & Ctrl+v.
и выполняю следующую процедурку:
procedure PasteText(wnd: hWnd);
var hglb: HGLOBAL;
lptst: PWideChar;
begin
if not IsClipboardFormatAvailable(CF_TEXT) then exit;
if not OpenClipBoard(0) then exit;
try
hglb := GetClipboardData(CF_TEXT);
if hglb = 0 then exit;
lptst := GlobalLock(hglb);
if lptst = nil then exit;
SendMessage(wnd,EM_REPLACESEL,0,LongInt(lptst));
GlobalUnlock(hglb);
finally
CloseClipBoard;
end;
end;


если кто видит где грабли поделитесь...


 
clickmaker ©   (2003-10-16 18:08) [3]

> если кто видит где грабли поделитесь...

А что, не работает ?


 
Doctor Deejay ©   (2003-10-16 20:49) [4]

Проще:
На фоне создать ТМемо, а при нажатии на горячие клавиши вставлять его туда, а потом копировать в ричэдит.
Есть еще момент - можно и мышкой вставить!


 
Sfagnum ©   (2003-10-17 09:12) [5]

2 clickmaker
да нет работает... просто с MSDN"а содрано...

2 Doctor Deejay
>Есть еще момент - можно и мышкой вставить!
сорьки за глупый вопрос - это как? RClick + Paste?
я ещё не реализовал это... думаю проблем не должно быть...



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

Текущий архив: 2003.12.12;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
7-36851
Leha
2003-10-08 23:11
2003.12.12
Как получить список импортируемых DLL-кой функций?


1-36669
TSa
2003-12-02 19:54
2003.12.12
Проход по компонетам


11-36588
DrFaust
2003-03-31 16:38
2003.12.12
TreeView Как добавлять записи в режиме дизайна!!!?????


3-36557
Zetr
2003-11-20 13:31
2003.12.12
Помогите с автоопределением местоположения курсора в Gride


14-36807
Gorlum
2003-11-20 11:01
2003.12.12
Сканирование