VPF::Текст в Combobox - Форум программистов

Михалыч

Дата 18.2.2012, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 472
Регистрация: 1.7.2008

Репутация: нет
Всего: нет

подскажите как отловить событие происходящее при нажатии кнопкой мыши на combobox.
Именно на окне Combobox ,а не в выпадающем списке.

--------------------

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

DarkProg

Дата 18.2.2012, 23:29 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 2
Всего: 19

OnClick, не?

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

northener

Дата 18.2.2012, 23:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(DarkProg @ 18.2.2012, 23:29

)

OnClick, не?

Не.
OnClick срабатывает только при выборе из выпадающего списка.

Цитата(Михалыч @ 18.2.2012, 21:22

)

подскажите как отловить событие происходящее при нажатии кнопкой мыши на combobox.

А зачем это вам надо?

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Vaskevych

Дата 19.2.2012, 19:46 (ссылка)

(нет голосов)

Загрузка ...

Delphi Developer

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 30.12.2009
Где: UA. Rovno

Репутация: нет
Всего: нет

OnMouseDown - не подходит ???

northener

Дата 20.2.2012, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(Vaskevych @ 19.2.2012, 19:46

)

OnMouseDown - не подходит ???

Вот незадача. У ТCombobox нет события OnMouseDown :(

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

MrDmitry

Дата 20.2.2012, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 556
Регистрация: 10.11.2006

Репутация: нет
Всего: нет

Цитата(northener @ 18.2.2012, 23:57)

Цитата(DarkProg @ 18.2.2012, 23:29

)

OnClick, не?

Не.
OnClick срабатывает только при выборе из выпадающего списка.

Цитата(Михалыч @ 18.2.2012, 21:22

)

подскажите как отловить событие происходящее при нажатии кнопкой мыши на combobox.

А зачем это вам надо?

Это на каком дельфи?

На дельфи 7 мини все норм

Код



procedure TForm1.ComboBox1Click(Sender: TObject);
begin
Showmessage('Срабатывает');
end;

northener

Дата 20.2.2012, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 8
Всего: 20

Цитата(MrDmitry @ 20.2.2012, 17:45

)

Это на каком дельфи?

На Д2007

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

DarkProg

Дата 22.2.2012, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Законченный романтик

Профиль
Группа: Завсегдатай
Сообщений: 1784
Регистрация: 11.3.2009
Где: Земля

Репутация: 2
Всего: 19

Цитата(MrDmitry @ 20.2.2012, 18:45

)

Это на каком дельфи?

Ради интереса сам полез, в XE тоже не отрабатывается, а вот как ни странно событие onDblClick срабатывает как надо, что для меня загадка.

В остальном, IMHO надо писать наследника, где вставлять процедуру перехвата OnMouseDown.

--------------------

"И твоя голова всегда в ответе за то куда сядет твой зад..."

"Я студент - скажите с какого я ВУЗа..."

smile

Чучмек

Дата 22.2.2012, 18:18 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 14
Всего: 41

Цитата(DarkProg @ 22.2.2012, 15:24

)

надо писать наследника, где вставлять процедуру перехвата OnMouseDown

Одной procedure (var ...:tmessage);message ... не обойдешся.

--------------------

умную мысль держи при себе, а дурной - поделись с другими

Чучмек

Дата 23.2.2012, 14:14 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 14
Всего: 41

Так, на вскидку, не заморачиваясь на грамотности написания -

Код


var proc:pointer;
function WP(h,m,w,l:cardinal):integer;stdcall;
begin
if m=WM_LBUTTONDOWN then
 begin
 //
 form1.Caption:=inttostr(random(256));
 //
 end;
result:=CallWindowProc(proc,h,m,w,l);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
integer(proc):=SetWindowLong(GetWindow(ComboBox1.Handle, GW_CHILD),GWL_WNDPROC,integer(@WP));
end;

--------------------

умную мысль держи при себе, а дурной - поделись с другими

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »