Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

Как "отцепить" мышь от контрола ?   Найти похожие ветки 

 
Ice   (2005-12-27 13:01) [0]

На форме два стринг грида, хочу перетащить строку из одного в другой...
В OnMouseMove первого грида пишу
 if ssLeft in Shift then
 begin
   ReleaseCapture;
   SetCapture(self.Handle);
 end;CODE>
после чего управление переходит в OnMouseMove самой формы. С этим все хорошо... НО ! При этом, когда мышь двигается, в первом гриде продолжается отслеживание выделенной строки...

Как от этого избавиться ? Чтоб выделенной остовалась только та строка, которую я начал тащить ?


 
Ice   (2005-12-27 17:34) [1]

Я, конечно, понимаю, вопрс архисложный... Но может, кто то все же знает...

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
 self.Caption := inttostr(Y)
end;

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 if ssLeft in Shift then
 begin
   ReleaseCapture;
   SetCapture(self.Handle);
 end;
end;


после перехода управления в OnMouseMove самой формы, в первом гриде продолжается отслеживание и выделение строки под курсором...

Как бороться ? Что бы в гриде выделенной оставалась та строка, которую я начал перетаскивать ???


 
Leonid Troyanovsky ©   (2005-12-27 19:30) [2]


> Ice   (27.12.05 17:34) [1]
> Я, конечно, понимаю, вопрс архисложный... Но может, кто
> то все же знает...


Есть такое понятие как drag"n"drop.
Т.е., ставим гридам dragmode = dmAutomatic и в OnDragOver второго пишем:

procedure TForm1.StringGrid2DragOver(Sender, Source: TObject; X,
 Y: Integer; State: TDragState; var Accept: Boolean);
begin
 Accept := Source = StringGrid1;
end;

Т.е., половина работы выполнена.

Далее осталось написать второму OnDragDrop, в котором по X, Y
определить строку, куда вставлять (MouseToCell), что вставлять
(TStringrid(Source).Row) и удалять.

Кста, у предка TStringGrid есть protected DeleteRow & MoveRow.

--
Regards, LVT.


 
Ice   (2005-12-28 09:46) [3]


> Leonid Troyanovsky ©   (27.12.05 19:30) [2]


> Есть такое понятие как drag"n"drop.
> Т.е., ставим гридам dragmode = dmAutomatic и в OnDragOver
> второго пишем:


Все б хорошо... Только когда у обоих гридов dragmode = dmAutomatic я не могу выбрать строку ни в одном из них... Сразу появляется значек драга...


 
Leonid Troyanovsky ©   (2005-12-28 19:12) [4]


> Ice   (28.12.05 09:46) [3]

> Все б хорошо... Только когда у обоих гридов dragmode = dmAutomatic
> я не могу выбрать строку ни в одном из них... Сразу появляется
> значек драга...


Значит, DragMode первого (и второго) надо вернуть dmManual.
В OnMouseDown первого надо проверить выделена ли строка
и сделать Stringgrid1.BeginDrag( False, 5 {например}).

--
Regards, LVT.



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

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
2-1135859627
ezorcist
2005-12-29 15:33
2006.01.22
Как упаковать файл WinRar-ом


9-1123438144
SergProger
2005-08-07 22:09
2006.01.22
FullSceen


5-1123089950
Juice
2005-08-03 21:25
2006.01.22
Сохранение свойства-обьект


2-1136477090
dera
2006-01-05 19:04
2006.01.22
Как поменять дату создания файла?


3-1132388654
888
2005-11-19 11:24
2006.01.22
Обнулить счетчик