Непонятка с Drag-n-Drop

[keymaster]

Не могу заставить работать драг-дроп.

На форме панель, на панели - edit, который можно таскать по панели.

в Delphi работает, в лазаре - не хочет.

[keymaster]

Вот.
Этот код работает в Delphi (7), но не работает в Lasarus.

Код: Выделить всё

procedure TForm1.Panel1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
with TEdit(Source) do
begin
   Left := X;
   Top := Y;
end;
end;

procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source.ClassName = 'TEdit';
end;     


Дополнение:
Panel1.Align := alClient;
Panel1.DragMode := dmManual;
Edit1.DragMode := dmAutomatic;

[keymaster]

Обнаружилось, что проблема в том, что в Panel1DragOver, Source.ClassName - TDragDropObject.

Никто не сталкивался?

[GrayEddy]

Если не ошибаюсь, Drag&Drop не реализован в Лазарусе. Причина - кросплатформенность.

[keymaster]

Хм... в самом-то лазаре драгдроп работает... компоненты по форме двигать можно же.

[GrayEddy]

Ну.. это компоненты-то. Им права даны
А вот и ссылка
http://wiki.lazarus.freepascal.org/inde ... lphi_Users
Читаем абзац Control Dragging/Docking и приходим к неутешительным выводам.
Правда, этот опус был написан в 2003 году. С тех пор много воды утекло, но не думаю, что положение изменилось.
Т.е LCL проектировали так, чтобы работало на всех платформах (которые Лазарус поддерживает). А это означает, что вещи, специфичные для Windows, сюда не вошли. К примеру, поддержку OLE не сделали.

[keymaster]

Прочитал...
Придётся всё своими рукамии писать...