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

Вниз

Как запретить эффект Drag&Drop   Найти похожие ветки 

 
DelphiLexx ©   (2007-03-30 17:29) [0]

У меня есть два грида в которых можно перемещать элементы между собой. В некоторых случаях мне нужно, чтобы Drag&Drop не работал как это сделать.


 
Virgo_Style ©   (2007-03-30 19:24) [1]

procedure TForm1.StringGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
 State: TDragState; var Accept: Boolean);
begin
 Accept:= ( Random(2)=0 );
end;


 
DelphiLexx ©   (2007-03-30 19:40) [2]


> procedure TForm1.StringGrid1DragOver(Sender, Source: TObject;
>  X, Y: Integer;
>  State: TDragState; var Accept: Boolean);
> begin
>  Accept:= ( Random(2)=0 );
> end;

Нет мне нужно чтобы даже курсор не менялся при попытке двинуть элемент


 
Кросспостинг!   (2007-03-30 20:00) [3]

Кросспостинг!
http://www.sql.ru/forum/actualthread.aspx?tid=413129


 
Virgo_Style ©   (2007-03-31 10:42) [4]

DelphiLexx ©   (30.03.07 19:40) [2]
Тогда, если мне ничего не изменяет, надо вручную вызывать BeginDrag при dmManual



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

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

Наверх




Память: 0.47 MB
Время: 0.035 c
2-1178866360
Alex7
2007-05-11 10:52
2007.05.27
Печать содержимого TMemo


2-1178558763
Dik59
2007-05-07 21:26
2007.05.27
Настройки Delphi?


2-1178759137
Просто_новичок
2007-05-10 05:05
2007.05.27
запись в файл


15-1177872605
antonn
2007-04-29 22:50
2007.05.27
Вопросик по регулярным выражениям. В пхп:)


2-1178726622
Strate
2007-05-09 20:03
2007.05.27
Не могу понять почему это работает :)