Главная страница
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.014 c
3-36531
IGray
2003-11-20 23:31
2003.12.12
Упредить


3-36542
Fants
2003-11-19 14:52
2003.12.12
BLOB, Jpeg, FireBird, FIBPLus


1-36597
Patrick
2003-12-01 18:36
2003.12.12
Динамический массив.


14-36848
oleg111
2003-11-20 13:59
2003.12.12
помогите найти TExpression


7-36866
KIE
2003-10-06 12:19
2003.12.12
Как мне получить изображение с ...