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...
