Скачать: CL | DM;

Есть два списка TListView - как определить какой из них выделен?   Найти похожие ветки 

← →
allucard   (2007-04-17 10:35) [0]

Доброго дня.

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

Спасибо.

---

← →
ЮЮ ©   (2007-04-17 10:44) [1]

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

---

← →
allucard   (2007-04-17 10:45) [2]

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

например?

---

← →
Сергей М. ©   (2007-04-17 10:53) [3]

> например?
>


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

---

← →
ЮЮ ©   (2007-04-17 10:55) [4]

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;

---

← →
allucard   (2007-04-17 10:58) [5]

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

оно.

---

← →
ЮЮ ©   (2007-04-17 11:00) [6]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c