Вниз
Скачать: 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.022 c
1-49483
Blacklord2003
2003-12-28 15:22
2004.01.16
Как сделать подсветку синтаксиса в TRichEdit


1-49497
serg128
2004-01-03 12:51
2004.01.16
Как закрывать MDI окна по клавише Esc?


14-49752
Serginio666
2003-12-24 13:52
2004.01.16
Когда Форум По Delphi.Net откроется


3-49444
RUYurik
2003-12-18 10:33
2004.01.16
TIBExtract


14-49711
Феликс
2003-12-24 23:21
2004.01.16
Вопросы по информатике, но не по программированю. (Word, Excel)




   Наверх