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

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

Drag'n'Drop между страницами PageControl [D7, XP]

Dash Rendar ©   (2007-12-27 13:18:00) 

Всем доброго времени суток!

Суть проблемы в следующем: есть PageControl с двумя страницами, на каждой из них помещен ListView. Мне нужно выборочно перемещать данные из ListView на первой странице в такой же на второй при помощи Drag'n'Drop. Не подскажете ли мне, как заставить PageControl сделать вторую страницу активной при наведении курсора мыши на ее заголовок (при этом DragState уже dsDragMove)?

---

Dash Rendar   (2007-12-27 13:38:00) [1]

{RASkov}

Спасибо, помогло.

---

{RASkov}   (2007-12-27 13:34:00) [2]

> > [1] Сергей М. ©   (27.12.07 13:27)
>
> Если делать ReleaseCapture; иначе это событие у табшита...

Что-то я не-то сморозил.... сорри)
Но при "Драге" маусмув не работает..... вроде, т.е. работает DragOver :)

---

{RASkov}   (2007-12-27 13:32:00) [3]

> [0] Dash Rendar   (27.12.07 13:18)

Попробуй примерно так:
procedure TForm1.PageControl1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
 PageControl1.ActivePageIndex:=PageControl1.IndexOfTabAt(X, Y);
 Accept:=False;
end;


> [1] Сергей М. ©   (27.12.07 13:27)

Если делать ReleaseCapture; иначе это событие у табшита...

---

Сергей М.   (2007-12-27 13:27:00) [4]

Событие OnMouseMove при этом разве не возбуждается ?

---

Наверх