Muss einen Kompass programmieren...

[volcano57]

Also ich hab so den dummen verdacht dass wenn ich das hier eingebe, es trotzdem noch nich laufen wird... fehlt da noch etwas...?

Delphi-Quellcode:

var
  Form1: TForm1;
  MittelPunkt: TPoint;
  MausPunkt: TPoint;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ClientWidth:=600;
  ClientHeight:=600;
  MittelPunkt.X:=ClientWidth div 2;
  MittelPunkt.Y:=ClientHeight div 2;
end;
{Nun hast du einen Mittelpunkt. Dieser ist der Ausgangspunkt für alles Weitere.
Um Diesen zeichnest du einen Kreis mit einem Radius deiner Wahl (Vorschlag: 100)}
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  MausPunkt.X:=X;
  MausPunkt.Y:=Y;
{ jetzt hast du die Mouse-Koordinaten. Nun musst du den Winkel von MittelPunkt
  und MausPunkt berechnen und anhand dessen vom Kreismittelpunkt entsprechned dem
  Winkel eine Linie in der Länge des Radius (oder etwas kürzer) zeichnen. Das ist
  dann der Zeiger, der immer in Richtung Maus zeigt. }
end;

bitte echt um eure hilfe... ich geb euch auch gerne einen aus...