Panel verschieben

[Kullerkeks]

Zitat:

Wenn Sie auf die Titelleiste klicken, wird der Wert, der von WM_SYSCOMMAND gesandt wird, von WM_SYSCOMMAND gesandt und HF012.

---> das ist aber unlogisch xD

naja und bei dem anderen muss ich gar nicht die shift-taste gedrückt halten.
ich habe den quelltext genau so übernommen (natürlich die panel-nummern geändert) und kann sie per mausklick frei bewegen.
habe dann auch versucht, eine "einschränkung" zu schreiben, indem ich festgelegt habe, dass z.b. panel1 nicht bewegt werden darf, wenn sich panel2 an einer bestimmten position (genau darüber) befindet

Delphi-Quellcode:

procedure TForm1.Panel5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Panel6.left<>8  and if Panel6.top<>504
then begin
    if ssLeft in Shift then
    begin
      ReleaseCapture;
      Panel24.Perform(WM_SYSCOMMAND,$F012,0);
    end;
end;
end;

aber da kommt immer das hier: [Fehler](470): Operator ist auf diesen Operandentyp nicht anwendbar