| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Есть два списка TListView - как определить какой из них выделен? [D7, XP]

allucard ©   (2007-04-17 10:35:00) 

Доброго дня.

На форме два ListView и одна кнопка изменить.
Как узнать на каком из них был курсор ввода до нажатия кнопки?

Спасибо.

---

ЮЮ   (2007-04-17 11:00:00) [1]

2)

procedure TForm1.ListViewEnter(Sender: TObject);
begin
 Button1.Tag := Integer(Sender)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (Button1.Tag > 0) and (TObject(Button1.Tag) is TListView) then
   Caption := TListView(Button1.Tag).Name
 else
   Caption := '';
end;

---

allucard   (2007-04-17 10:58:00) [2]

> ЮЮ ©   (17.04.07 10:55) [4]

оно.

---

ЮЮ   (2007-04-17 10:55:00) [3]

1) Используя TToolButton, TSpeedButton. При клике на них мышью ActiveControl останется тот контрол, который имел фокус ввода:

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if ActiveControl is TListView then
   Caption := TListView(ActiveControl).Name
 else
   Caption := TControl(Sender).Name;
end;

---

Сергей М.   (2007-04-17 10:53:00) [4]

> например?
>


Что непонятно ?

---

allucard   (2007-04-17 10:45:00) [5]

> ЮЮ ©   (17.04.07 10:44) [1]

например?

---

ЮЮ   (2007-04-17 10:44:00) [6]

1) Используй кнопку, не отбирающую фокус ввода.
2) При получеии фокуса ввода пусть ListView изменяют tag одинокой кнопки

---

Наверх