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

Вниз

DragDrop   Найти похожие ветки 

 
PSPF2003 ©   (2006-07-24 07:55) [0]

День добрый. Изучал один исходничек, разобрался во всем вот только не могу понять одну запись.

procedure TForm1.DBTreeFilter1DragOver(Sender, Source: TObject; X,
 Y: Integer; State: TDragState; var Accept: Boolean);
begin
if Source = DBTreeFilter1 then
 Accept:= Source=DBTreeFilter1;
end;

 Вот это место Accept:= Source=DBTreeFilter1; объясните кто знает.


 
Elen ©   (2006-07-24 08:04) [1]

Source=DBTreeFilter1
Это булевое выражение. Вернет True или False

> Accept:= Source=DBTreeFilter1

Эта запись равносильна if Source=DBTreeFilter1 then Accept:=true else accept:=false


 
PSPF2003 ©   (2006-07-24 08:08) [2]

Понятно, большое спасибо.


 
ЮЮ ©   (2006-07-24 08:16) [3]

эквивалентно
   Accept := Source = DBTreeFilter1;

Судя по Help , безсмысленен, ибо:

Within the OnDragOver event handler, the Accept parameter defaults to true.

Сhange the Accept parameter to false to reject the dragged object. Leave Accept as true to allow the user to drop or dock the dragged object on the control.


 
ЮЮ ©   (2006-07-24 08:19) [4]

P.S. Бессмысленен имено исходный, ибо "изменяет" в True то, что и так True, но никогда не устанавливает False



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

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

Наверх




Память: 0.47 MB
Время: 0.048 c
15-1153114284
Ega23
2006-07-17 09:31
2006.08.13
С Днём рождения! 11-14 июля


6-1143618622
MegaVolt
2006-03-29 11:50
2006.08.13
Как тестировать сетевое приложение?


15-1151906106
Кручен-Верчен
2006-07-03 09:55
2006.08.13
Появилась куча свободного времени.


4-1145464471
Интересующийся
2006-04-19 20:34
2006.08.13
Открытие Word-овского файла


3-1149323064
АНОНИМ
2006-06-03 12:24
2006.08.13
Закрыть базу Access