ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Обработка событий
6 сообщений из 6, страница 1 из 1
Обработка событий
    #32089230
Фотография Белов Владимир
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Белов Владимир
Участник
Как получить и обработать,и, соответсвенно, произвести необходимые действия, сообщение от компонента
предположим от TreeView
что мышь "над ним" и что мышь "ушла от него" :-)
сообщения
CM_MOUSEENTER
CM_MOUSELEAVE
...
Рейтинг: 0 / 0
11.01.2003, 21:58
| Ответить | Цитировать | Написать  
Обработка событий
    #32089292
_Dima
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Dima
Гость
Самое простое, это определить свой компонент на основе стандартного,
где добавить обработчики этих сообщений.
Впрочем, здесь все написано
...
Рейтинг: 0 / 0
12.01.2003, 17:25
| Ответить | Цитировать | Написать  
Обработка событий
    #32089294
_Dima
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
_Dima
Гость
Прошу прощения.
Вот ссылка
http://www.delphikingdom.com/article/winapi.htm
...
Рейтинг: 0 / 0
12.01.2003, 17:27
| Ответить | Цитировать | Написать  
Обработка событий
    #32089308
Фотография Белов Владимир
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Белов Владимир
Участник
Да в том то и дело,
что мне нужно использовать это только в одном месте - а ради этого писать свой собственный компнент. ?
...
Рейтинг: 0 / 0
12.01.2003, 21:08
| Ответить | Цитировать | Написать  
Обработка событий
    #32089323
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cat2
Участник
Если без особых изысков.

На Panel2 помещено текстовое поле Label1

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
procedure TFormMain.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if flag then
begin
flag:=false;
label1.Caption:='exit'
end

end;

procedure TFormMain.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
flag:=true;
label1.Caption:='enter'
end;
...
Рейтинг: 0 / 0
12.01.2003, 23:52
| Ответить | Цитировать | Написать  
Обработка событий
    #32089490
Gold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Gold
Участник
Да перекрой WindowProc - вот и всё. Пишешь свою WindowProc и присваиваешь её адрес вместо стандартного обработчика. А там пишешь что-то вроде такого:
Код: plaintext
1.
2.
3.
4.
5.
6.
procedure TMyListBoxDescendant.SubClassWndProc(var Message: TMessage);
begin
  if Message.Msg = WM_STYLEMESSAGE then
    Style := TListBoxStyle(Message.WParam)
  else
    WndProc(Message)
end;

Извиняюсь, что украл из справки - самому писать лень ...
...
Рейтинг: 0 / 0
13.01.2003, 12:20
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Обработка событий
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]