Grafisches Form

[Jarmen_Kell]

Ui gut zu wissen^^
Ich habe bisher immer

Delphi-Quellcode:

Var
HeaderMouseDPos:TPoint;

procedure Tmainform.PnlTopMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  HeaderMouseDPos.X:=x;
  HeaderMouseDPos.Y:=y;
end;

procedure Tmainform.PnlTopMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  If SSLeft in Shift
    then
      begin
        mainform.Left:=mainform.Left-(HeaderMouseDPos.X-X);
        mainform.Top:=mainform.Top-(HeaderMouseDPos.Y-Y);
      end;
end;

o.ä. benutzt. Damit komm ich auch prima klar, auch wenn's komplizierter ist

PS.ie Torry-Sachen erscheinen mir irgendwie nicht sonerlich toll...