Есть два списка 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]

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;

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