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

← →
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, например :)

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

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

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