Muss einen Kompass programmieren...

[volcano57]

danke phoenix für die schnelle antwort auf jeden fall vielen dank.. aber ich muss mir das was du schreibst erstmal ruhig durchlesen... ich bin nicht so der delphi-experte wie du sicherlich schon gemerkt hast....

und kann das auch evtl.. jemand ein bisschen auf deutsch sozusagen schreiben.. als prosa vllt, das ich das auch ein wenig versteh..

hm naja danke nochmal

[volcano57]

ZU KINZLER

korrekt mein ich, nicht so spießer die ein problem mit dem "kraftausdruck"

Zitat:

SCHEISSSSE

haben..

also jetzt mal ehrlich, als würdet ihr solche worte niee benutzen... :roll:

ok aber danke für die schnellen antworten vielen dank an alle..

[Progman]

Hier ein Ansatz, um das auf dem Canvas des Forms zu machen:

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;

Ich gehe mal davon aus, dass du weißt, wie man ein neues Project in Delphi erstellt ;)

[Namenloser]

Als kleine Ergänzung:
Mit Canvas.Ellipse kannst du einen Kreis, mit Canvas.MoveTo und Canvas.LineTo eine Linie zeichnen.

[volcano57]

ok progman... das sieht schon wirklich sehr sehr gut aus für mich...

ok neues projekt und so weiter ist kein problem.. ich hoffe mal das krieg ich dann so hin...

aber ich weiß nich ihr seid richtige delphi-freaks.. machste mal eben so locker in 5min was in 1 woche nich hinkriege...

vielen dank auf jedne :kiss:

[mr_emre_d]

Zitat:

....nicht so spießer die ein problem....

omg, jetzt beleidigst du noch dp-user
:shock:

[volcano57]

JA danke namenlozer.. die canvas ellipse kommt mir auch bekannt vor.. ich glaube ich kenn das auch irgendwo her

ja.. so langsam stell ich doch fest, dass mir ein jahr delphi wirklich nich so viel gebracht hat.. den andren aus meinem kurs aber igendwie schon...

nein find ich aber super das leute wie ihr so sowas freiwillig macht mit delphi und so .. würd für mich nicht in frage kommen.. thx!

[volcano57]

mr_emre wenn ich jemanden beleidige sieht das anders aus glaub mir...

aber ey warum macht der dann auch mich direkt so fertig als "frisch reingestolperten user"...?

ist doch kein problem für euch wenn man mal scheiße schreibt oder,,,... sry ich meinte SC****E

[mkinzler]

Es ist nur völlig überflüssig

[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... :cheers: