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