| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
OnCheck в TreeView
JanvVlad © (2003-07-06 17:25:00)Уважаемые Мастера! Скажите, пожалуйста, как узнать, когда пользователь сменяет значение CheckBox у какого-либо TVItem (есть ли вообще событие On Check?)
JanvVlad (2003-07-18 10:19:00) [1]Через OnClick вроде невозможно получить Mouse (разве через WinAPI). А клавиатуру вроде вообще приходится писать отдельно :((
Solik (2003-07-16 13:53:00) [2]
procedure TForm1.TreeView1MouseDown(Sender: PControl;
var Mouse: TMouseEventData);
var
Item:cardinal;
WhereDown:cardinal;
begin
Item:=treeview1.TVItemAtPos(mouse.X,mouse.Y,WhereDown);
if (Item<>0) and (longbool(WhereDown and TVHT_ONITEMSTATEICON)) then
//Отпраляем на обработку. Значение State еще не сменилось.
ItemCheck(Item);
По всей видимости не MouseDown а OnClick, потому как вдруг через клаву нажали?
JanvVlad (2003-07-06 21:19:00) [3]Почти понятно ;-)
Привожу фрагмент кода для таких же нуждающихся, как и я сам.
procedure TForm1.TreeView1MouseDown(Sender: PControl;
var Mouse: TMouseEventData);
var
Item:cardinal;
WhereDown:cardinal;
begin
Item:=treeview1.TVItemAtPos(mouse.X,mouse.Y,WhereDown);
if (Item<>0) and (longbool(WhereDown and TVHT_ONITEMSTATEICON)) then
//Отпраляем на обработку. Значение State еще не сменилось.
ItemCheck(Item);
Кладов (2003-07-06 20:22:00) [4]вообще-то эти чеки - это обычные статусные иконки. Так что OnClick должен бы работать. Я у себя избегаю такое делать стилем, чтобы не зависеть от наличия IE4. Имитировать чеки самому совсем не сложно.
| |
