Announcement

**Roman Morokutti** · 07.06.2001, 12:33

Hallo Thorsten,

wenn Du das Fenster, in dem sich das RichEdit befindet, selber erstellst, solltest Du das Ereignis OnDestroy() abfangen k�nnen. Das Fenster erstellst Du beim OnStartDrag Ereignis des RichEdits.
(BorderStyle bsToolWindow, dann schaut es genau so aus, wie die Floating Windows beim Drag&Drop.)

Anschlie�end �bergibst Du das RichEdit an das neue Fenster. Wenn der User dann auf das "x" dr�ckt wird das OnDestroy Ereignis ausgel�st, dann �bergibst Du das RichEdit wieder der MainForm. Ich hoffe ich konnte Dir damit weiterhelfen.

Gru� Roma

**Thorsten Lepke** · 07.06.2001, 15:15

Hallo Roman,

danke f�r Deine schnelle Antwort. 
Ich glaube ich verstehe Dich noch nicht so ganz. Wenn mein RichEdit wieder an z.B. ein Panel angedockt ist und dann jemand das "x" dr�ckt erfahre ich doch trotzdem nichts davon. 
Wenn ich Dich richtig verstanden habe soll ich das RichEdit im 'floatenden' Zustand an ein TForm binden. Dann w�rde ich schonmal mitbekommen wenn die Komponenten im freien Zustand zerst�rt w�rde. Aber wenn jetzt jemand das RichEdit wieder an ein Panel andockt, w�re das TForm ja nicht mehr mit dem RichEdit verbunden, oder? 
Oder meinst Du die Eigenschaft FloatingDockSiteClass ? Da habe ich n�mlich noch nicht verstanden wie man die anwendet.

Ich m�chte ein �hnliches Verhalten wie im Builder mit dem Meldungsfenster erreichen. Wenn das RichEdit da ist, ist es ein Teil des Fensters mit Gr��en�nderung und so, und wenn es jemand mittels "x" zerst�rt, nimmt das Fenster wieder den kompletten Client ein. 
Mein Fenster ist aufgeteilt in ein DrawGrid (oben) und einer Anzeige(Richedit, unten) geteilt von einem Splitter(zwecks Verschiebung der Gr��enverh�ltnisse). Die Anzeige ist auf einem Panel plaziert damit ich einen Host f�r mein Docking habe. Wenn nun meine Anzeige zerst�rt wird, mu� das Panel auch verschwinden und daf�r brauche ich die Meldung der Zerst�rung.

Ich hoffe die funktionalit�t die ich erreichen m�chte ist klar, nur wie schaffe ich das??

Thorste

**Roman Morokutti** · 08.06.2001, 12:32

Hallo Thorsten,

welches Meldungsfenster vom Builder meinst Du? Das, wo die Compile- und Linkerfehler angezeigt werden? Du mu�t entschuldigen, ich habe n�mlich die englische Version. Nichts desto trotz werde ich �bers Wochenende mal versuchen hinzukriegen, was Dir so vorschwebt.

Gru� Roma

**Roman Morokutti** · 10.06.2001, 10:13

Hallo Thorsten,

jetzt habe ich kapiert, wie das mit der FloatingDockSiteClass funktioniert. Ich habe das ganze anhand einer TToolBar ausprobiert.

In TForm1:

<code>
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
   : TForm(Owner) 
{ 
   ToolBar1->FloatingDockSiteClass = __classid(TForm 2); 
} 
//--------------------------------------------------------------------------- 
</code>

In TForm2:

<code>
//--------------------------------------------------------------------------- 
void __fastcall TForm2::FormDockDrop(TObject *Send er, 
      TDragDockObjec t *Source, int X, int Y) 
{ 
   ClientWidth = Sourc e->Control->Width; 
   ClientHeight = Sour ce->Control->Height; 
   Show();    
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm2::FormDeactivate(TObject *Se nder) 
{ 
   if (!ControlCount) Close(); 
} 
//--------------------------------------------------------------------------- 
</code>

Damit erreichst Du, da� die ToolBar sich an TForm2 klemmt, wenn der Drag-Vorgang beginnt. Ich habe selber schon einige M�he mit dockable Fenstern gehabt, die von der VCL erstellt wurden. Bei mir h�pfte das Fenster immer, wenn ich auf die CaptionBar geklickt habe. Nun habe auch ich etwas hinzugelernt.

Ich habe es auch mal statt mit einer TToolBar mit einem TRichEdit versucht, habe aber nocht nicht ganz hingekriegt, wie ich diese in den Drag-Modus bringen kann. Da mu� man ja die Enabled Eigenschaft auf false setzen, damit der Cursor �berhaupt greift. Aber ich glaube da bist Du um einiges fitter :-)

Ich hoffe, Dir mit dieser Antwort geholfen zu haben.

Gru� Roma

**Gast_1** · 10.06.2001, 11:56

wenn ich den code in ein leeres project einbinde passiert garnichts. woran kann das liegen

**Thorsten Lepke** · 11.06.2001, 08:40

Hallo Roman,

danke das Du Dir soviel Gedanken gemacht hast. Mit der Eigenschaft FloatingOnDockSiteClass klappt es :-).(Ich finde da h�tte Borland mit seiner sonst recht guten Hilfe ein bi�chen spendabler sien k�nnen;-) ) 
Ich habe meine Dockkomponente zur Laufzeit erstellt und dann gleich manuell auf ein Panel angedockt. Dann hat man n�mlich auch gleich die Komponente an ein Form gebunden und kann mit dem TForm::OnClose Ereignis immer auf eine Zerst�rung reagieren. Der Trick ist dann dabei, das man mit dem verbundenen Form das Drag&Dock ausl�st und behandelt.

Gru� Thorste

**Roman Morokutti** · 11.06.2001, 12:03

Was genau! funkitoniert nicht

**Thorsten Lepke** · 11.06.2001, 12:19

[Falls Romans Kommentar f�r mich war:]
N��, es geht alles, (ich h�tte wohl nur danke schreiben sollen;-) ) ich wollte nur eine Kurzbeschreibung meines L�sungswegs abgeben.

So, also keine Fragen mehr meinerseits hierzu.

Gru� Thorste

**Gast_1** · 11.06.2001, 13:57

es macht siche keine dock funktion bemerkba

**Roman Morokutti** · 11.06.2001, 16:08

Hallo Thorsten,

ich meinte eigentlich den Maik. Als ich die Antwort geschrieben habe, war Dein Posting noch nicht sichtbar. Aber es freut mich, da� es Dir nun gelungen ist. Ich hoffe ich konnte Dir dabei ein wenig behilflich sein.

Gru� Roma

**Roman Morokutti** · 11.06.2001, 16:12

Hallo Maik,

das Andocken habe ich bisher noch nicht ausimplementiert. Mir ging es nur darum, da� Objekt in einem eigenen Fenster zu verschieben.

Gru� Roma

Announcement

Drag&Dock

Drag&Dock

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment