"Eigene" Fenster

[hedie]

Hallo

Ich möchte ein Panel das sich in einem weiteren Panel befindet wie ein Fenster verschieben können also mit klick auf zb. ein weiteres Panel innerhalb des Panels das das Fenster Darstellt


Zur unterstützung ein bild


Einen Code zur verschiebung wie ein Fenster habe ich bereits selber geschrieben

Delphi-Quellcode:

procedure TMultiForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var
  left:integer;
  top:integer;
  begin

       if (key = 68) then begin
       Panel2.Cursor := crCross;
       mousep := mouse.CursorPos;
       left := mousep.X;
       top := mousep.Y;
       left := (left - MultiForm.Left)-10;
       top := (top - MultiForm.Top)-27;
       Panel3.Left := Left;
       Panel3.Top := top;
       Panel2.Cursor := crDefault;
       end;
end;

Das Problem ist, das ich dazu e drücken muss.

Wie kann ich es machen das ich zb. auf eben ein Panel klicken kann.



danke grüsschen
Claudio