Drag&Drop-Problem

[gkaeberich]

Hallo,

ich habe jetzt mal den Quellcode beigefügt:

procedure TStartfenster.Online_portal_PanelMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
{ ************************************************** ********************************** }

begin
if button = mbLeft Then
online_portal_panel.begindrag (False);
end;


procedure TStartfenster.Online_portal_PanelEndDrag(Sender, Target: TObject; X, Y: Integer);
{ ************************************************** ********************************** }

begin
if target = Nil then MessageBeep (0);
end;


procedure TStartfenster.FormDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
{ ************************************************** ********************************** }

begin
accept := (Source is TPanel);
end;


procedure TStartfenster.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
{ ************************************************** ********************************** }

begin
if Source is TPanel then
begin
TPanel(Source).Left := x;
TPanel(Source).Top := y;
TPanel(Source).Parent := TWinControl(Sender);
end;
end;


procedure TStartfenster.Online_portal_PanelDblClick(Sender: TObject);
{ ************************************************** ********************************** }

begin
VirtuelleSchule1.click;
end;



Es funktioniert in soweit, dass der Drag&Drop-Prozess klappt, dann die Verbindung mit Dopelclick auf das Panel in die Virtuelle Schule auch, aber bei der Rückkehr in mein Delphi-Programm ist der Drag&Drop-Prozess noch nicht beendet und dort wo ich dann auf das Fenster clicke wird das Panel abgelegt..

vg

G. Käberich