ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
13 сообщений из 13, страница 1 из 1
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758604
Sergey-2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-2008
Гость
Доброе время суток форумчане,

В модуле объявил:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
type
  TDBLookUpComboBoxHint = class(TCustomDBLookupComboBox)

  private
    FHint: THintWindow;

  protected
    procedure WMCTLCOLORLISTBOX(var Message: TMessage); message  ;
  end;
var
  Form2: TForm2;
  FMyLookUpComboBoxHint: TDBLookUpComboBoxHint;



Создал компонент и присвоил ему событие «OnMouseMove» компонента на форме «DBLookupComboBox»

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure TForm2.FormCreate(Sender: TObject);
begin
  FMyLookUpComboBoxHint := TDBLookUpComboBoxHint.Create(self);
  with FMyLookUpComboBoxHint do
  begin
    Parent := self;
    FMyLookUpComboBoxHint.OnMouseMove := DBLookupComboBox1.OnMouseMove;
  end;
end;



и написал заготовку для обработки сообщения

Код: pascal
1.
2.
3.
4.
procedure TDBLookUpComboBoxHint.WMCTLCOLORLISTBOX(var Message: TMessage);
begin
  FHint := ‘’;
end;



А вот как теперь его отловить сообщение которое будет генерироваться пока водишь мышкой по выпадающему списку DBLookupComboBox1?
...
Рейтинг: 0 / 0
11.01.2019, 20:34
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758613
ma1tus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ma1tus
Участник
Sergey-2008
Код: pascal
1.
procedure WMCTLCOLORLISTBOX(var Message: TMessage); message ;

1815252
...
Рейтинг: 0 / 0
11.01.2019, 20:52
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758619
Sergey-2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-2008
Гость
ma1tus,

да
у меня конечно стоит
Код: pascal
1.
procedure WMCTLCOLORLISTBOX(var Message: TMessage); message WM_CTLCOLORLISTBOX;
...
Рейтинг: 0 / 0
11.01.2019, 20:59
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758622
Sergey-2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-2008
Гость
и да, там не совсем то,
тамм не говорится о методе связи DBLookupComboBox1 и созданного " FMyLookUpComboBoxHint "
тем более у "DBLookupComboBox1" нет события отлавливающего перемещения мышки по выпадающему списку, а только по мамому компоненту.
...
Рейтинг: 0 / 0
11.01.2019, 21:07
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758651
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
WM_CTLCOLORLISTBOX
This message is sent to the parent window of a list box before Windows draws the list box.
...
Рейтинг: 0 / 0
11.01.2019, 23:51
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758658
Sergey-2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-2008
Гость
DimaBr,
хорошо,
а поскольку я сделал

Код: pascal
1.
FMyLookUpComboBoxHint.OnMouseMove := DBLookupComboBox1.OnMouseMove;



то, при выпадании списка DBLookupComboBox1, будет/должна вызываться процедура

Код: pascal
1.
procedure TDBLookUpComboBoxHint.WMCTLCOLORLISTBOX(var Message: TMessage);


?
в которой я и должен обрабатывать hint?
...
Рейтинг: 0 / 0
12.01.2019, 00:27
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758667
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Причём здесь OnMouseMove и WMCTLCOLORLISTBOX ?
OnMouseMove - срабатывает когда мышка перемещается по FMyLookUpComboBoxHint
WMCTLCOLORLISTBOX - когда нужно перерисовать выпадающий список
...
Рейтинг: 0 / 0
12.01.2019, 01:18
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758668
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
...
Рейтинг: 0 / 0
12.01.2019, 01:37
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758671
Sergey-2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-2008
Гость
DimaBr,

Вот только интересно, почему у меня сообщение не отрабатывает, как у вас

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
procedure TDBLookUpComboBoxHint.WMCTLCOLORLISTBOX(var Message: TMessage);
begin
  case Message.Msg of
    WM_CTLCOLORLISTBOX:
                       begin
                         Form2.Caption := IntTostr(Random(1000));
                       end;
  end;
  inherited;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  FMyLookUpComboBoxHint := TDBLookUpComboBoxHint.Create(self);
  FMyLookUpComboBoxHint.FHint := THintWindow.Create(Self);
  with FMyLookUpComboBoxHint do
  begin
    Parent := self;
    FMyLookUpComboBoxHint.OnMouseMove := DBLookupComboBox1.OnMouseMove;
  end;
end;



или я что-то не доприсваивал, хотя в выпадающем списке DBLookupComboBox1 , активная строка не подсвечивается, как ComboBox1
...
Рейтинг: 0 / 0
12.01.2019, 02:32
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758725
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Sergey-2008интересно, почему у меня сообщение не отрабатывает, как у васПотому как полное отсутствие представления о том как работают компоненты и оконные контролы в винде. Пытаешься скрестить ежа с ужом - присвоение vcl-ного обработчика события никак не повлияет на виндовые мессаги если только сам их не спровоцируешь. Надо хорошенько подтянуть матчасть, прежде чем влезать в винапи
...
Рейтинг: 0 / 0
12.01.2019, 12:45
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758738
Sergey-2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-2008
Гость
white_nigger,

хорошо, накидайте мне пожалуйста пункты, которые мне нужно проработать, чтоб я сделал этот чертов хинт (если не сложно)
...
Рейтинг: 0 / 0
12.01.2019, 13:38
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758832
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Вроде и код привёл, и картинку.
Скачайте готовый компонент и не мучайтесь
...
Рейтинг: 0 / 0
12.01.2019, 21:27
| Ответить | Цитировать | Написать  
Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
    #39758946
Sergey-2008
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey-2008
Гость
DimaBr,
так то же для "ComboBox", а у меня "DBLookupComboBox" или суть одна и таже?
...
Рейтинг: 0 / 0
13.01.2019, 13:53
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как поймать WM_CTLCOLORLISTBOX DBLookupCombobox ом
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39758622&tid=2039928]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 236ms
total:  500ms
созд. / загр.: 500ms
x
x
Закрыть


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