Shape nur im 45° Winkel bewegen

[Benedikt]

Moin,

hab grad mal rumgespielt: Ist das so in etwa wie du dir das denkst?

Delphi-Quellcode:

procedure TForm1.Shape1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
begin
    XMouseDown := X;
    YMouseDown := Y;

    XStart := Shape1.Left;
    YStart := Shape1.Top;

    IsOver := true;
end;

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
begin
    if isOver then
    begin
        Shape1.Left := Shape1.Left + x - XMouseDown;
        Shape1.Top := YStart - XStart + Shape1.Left;
    end;
end;