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}

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

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