Форум: "Начинающим";
Текущий архив: 2008.01.27;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.01.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c