| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

DragDrop [D2005, XP]

PSPF2003 ©   (2006-07-24 07:55:00) 

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

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; объясните кто знает.

---

ЮЮ   (2006-07-24 08:19:00) [1]

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

---

ЮЮ   (2006-07-24 08:16:00) [2]

эквивалентно
   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.

---

PSPF2003   (2006-07-24 08:08:00) [3]

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

---

Elen   (2006-07-24 08:04:00) [4]

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

> Accept:= Source=DBTreeFilter1

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

---

Наверх