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

Drag n Drop между страницами PageControl   Найти похожие ветки 

← →
Dash Rendar   (2007-12-27 13:18) [0]

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

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

---

← →
Сергей М. ©   (2007-12-27 13:27) [1]

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

---

← →
{RASkov} ©   (2007-12-27 13:32) [2]

> [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; иначе это событие у табшита...

---

← →
{RASkov} ©   (2007-12-27 13:34) [3]

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

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

---

← →
Dash Rendar   (2007-12-27 13:38) [4]

{RASkov}

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

---

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

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



Память: 0.45 MB
Время: 0.009 c