Tach,

ich schreibe mir momentan eine unit um ganz easy wie "Winamp" ähnliches Docking System auf die beine zu stellen. Das Docken an sich funktioniert ganz gut, nur das rumschieben durch die mainform bringt bugs wie samt am meer und irgendwie krieg ich das nicht gebacken, das es so funzt wie ich es will.

Ich poste hier in der hoffnung den source, das sich das einer mal anschaut und mir tips geben könnte, wie man das ganze realisieren könnte.

Die Theorie davon ist einfach:

Du hast 3 Forms, "Main", "Playlist", "Controls".
Alle 3 Fenstern können an sich aneinander andocken.
"Main" ist das absolute Haupt Form, wenn dieses Verschoben wird mittels "WM_WINDOWPOSCHANGING" dann müssen alle Forms die daran angedockt sind mit verschoben werden.

Danach muss geprüft ob die Forms die rumgeschoben werden durch die playlist auch noch andere angedockt sind, wenn ja müssen diese dann durch die Forms verschoben werden.

Soweit klar, gut... wenn nich einfach nachfragen... oder code durchsehen

Ich hab natürlich vorher gegooglet und viele units für Docking Systeme gefunden, zwei interessante units hatte ich gefunden, das erste war ein shareware docking system ohne source was ich nicht installieren konnte und ein nerviges demo popup kam
Das zweite war ein ziemlich geniales system, bloss leider liefert mein delphi einen sehr harten compiler befehl der mir sagt, das ich mit delphi 5 standard dieses nicht nutzen kann. Mit einer Trial Version von Delphi7 lies es sich kompilieren. Leider nur trial... geld für eine teure personal... enterprise version hab ich nicht. Den Source von diesem Docking System hab ich auch gepostet.

Wollte eigentlich das sogenannte "Rad" nicht nochma erfinden, aber es scheint einem nix übrig zu bleiben... da die anderen docking systeme immer nur für 2 Forms waren... und selbst diese meistens nicht mit einander rumgeschoben werden konnte oder sich nicht kompilieren liesen ((((


und es wäre wirklich nett... wenn jemand mir erklären könnte wie ich den "Internet Fehler C1141" beheben könnte in der unit "MagnetUnit.pas" oder sich jemand meinen source anschaut "xdocking.pas" und mir hilft das rad neu zu erfinden... und natürlich kann dann jeder auch das system dann benutzen, grad bei 3D Editoren ist es ganz praktisch...

Hier die files:

<a href='http://encorex.no-ip.com/shared/Final/dgl/MagnetUnit.zip' target='_blank'>http://encorex.no-ip.com/shared/Final/dgl/.../MagnetUnit.zip</a>

<a href='http://encorex.no-ip.com/shared/Final/dgl/xdocking.zip' target='_blank'>http://encorex.no-ip.com/shared/Final/dgl/xdocking.zip</a>


Danke,

matane,
Final

Ich glaube das heißt "Interner Fehler C1141" und ist ein Fehler im Compiler. Bei Delphi4 hatte ich häufiger solche Internen Compiler Fehler. Die ließen sich manchmal durch umgruppieren des Program vermeiden. Also versuch mal die IF und ELSE Zweige und die begin/end Blöcke anders anzuordnen und anders zu verschachteln. Meistens hat das bei mir schon was gebracht, wenn ich die syntaktische Struktur ein wenig geändert habe.
Mit Delphi6 Personal funktioniert MagnetUnit.zip fehlerfrei.