Вниз
Скачать: CL | DM;

Перекрытие стандарных методов в компонентах   Найти похожие ветки 

← →
Depo   (2004-01-04 16:01) [0]

Доброго времени суток, Мастера! Сейчас буду задавть глупые вопросы. Итак, я пишу компонент - потомок от TRichEdit. В связи с этим возникло несколько вопросов:
1. Как перекрыть стандартные методы копирования/вставки/вырезания текста?
2. Как обработать сообщение о перетаскивании текста (именно текста, а не файла) в рич?
3. Как обработать сообщение WM_MOUSEWHEEL, чтобы в зависимости от того, куда юзер крутит колесико, выполнялся нужный код. Я пробовал перекрывать MouseWheelUp/Down, но комилятор пишет, что, мол, нету таких методов в родительском классе.

Извиняюсь, если спросил что-то не то, но я действительно искал в сети и ничего подобного не нашел (может плохо искал?). Заранее всем спасибо.


← →
Depo   (2004-01-04 17:04) [1]

Помогите, plz...


← →
Sandman25 ©   (2004-01-04 17:37) [2]

Объясняю методику.
1.
a)Набираем TRichEdit в редакторе Delphi, жмем F1, мышкой тыкаем в Methods, находим CopyToClipBoard, тыкаем мышой, вверху видим TCustomEdit, тыкаем мышой, видим unit StdCtrls.
b)Открываем файл StdCtrls.pas (С:\Program Files\Borland\Delphi 6\Source\VCL\StdCtrls.pas
c)Жмем Ctrl+F, набираем CopyToClipBoard, видим:
procedure TCustomEdit.CopyToClipboard;
begin
SendMessage(Handle, WM_COPY, 0, 0);
end;
d) Понимаем, что для "перекрытия стандартного метода" надо написать
procedure WMCopy(var Message: TMessage); message WM_COPY;

procedure TMyEdit.WMCopy(var Message:TMessage);
begin
...
inherited;
end;

Пункты 2 и 3 делаем самостоятельно.


← →
Serge ©   (2004-01-04 17:45) [3]

Удивлюсь если после такого !!! объяснения появятся еще вопросы Ж:)


← →
Sandman25 ©   (2004-01-04 17:47) [4]

[3] Serge © (04.01.04 17:45)

У меня бы появились. Где найти хорошую книгу по Delphi, например :)


← →
Serge ©   (2004-01-04 17:57) [5]

:)


← →
Depo   (2004-01-04 21:13) [6]

Говорю же, буду задавать тупые вопросы :-))
Спасибо большое, все понятно. =))



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

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



Память: 0.46 MB
Время: 0.014 c
3-49461
sss
2003-12-17 18:11
2004.01.16
разбиение на файлы IB


1-49498
Igloo
2004-01-03 16:43
2004.01.16
На форме доступны тока курсоры виндоса, а как свои ставить из


6-49668
turonix
2003-11-15 17:30
2004.01.16
Error 404


14-49767
SPeller
2003-12-23 23:06
2004.01.16
Вопрос по HTML


1-49614
RoLeX
2004-01-03 14:17
2004.01.16
Как заставить включить/выключить лампочки Caps/Num/Scroll Lock ??




   Наверх