Wenn Mouse über kreis, dann Mouse ändern

[Christian18]

Hallo,

ich habe einen Kreis auf meiner Form gezeichnen. Mit Canvas und dann die Ellipse. Dann habe ich meine 4 Punkte angegeben und fertig ist der Kreis. Jetzt wollte ich aber noch einen Drauf setzen. Wenn ich mit der Mouse ber diesen Punkt fahre, dann soll sich das aussehen der Mouse ändern. In Delphi gibt es ja auch schon ein paar andere Mouse zeiger. Die Mouse soll einfach nur anders aussehen.

Mit freundlichen Grüßen

Christian18

[Matze]

Da du die Koordinaten hast, kannst du mit GetCursorPos überprüfen, wo sich der Cursoer befindet. Wenn er da ist, wo er sein Corsor ändern soll, änderst du ihn halt. ;)

Edit: Hatte Käse geschrieben...


Nachtrag:

Oder mach's so:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (x >= 4) and (x >= 6) and
     (y >= 4) and (y <= 6) then
       Cursor := crCross else
         Cursor := crArrow;
end;

Jetzt wird der Cursor verändert, wenn er sich bei Position 5/5 befindet oder an einem der angrenzenden Pixel.

[leddl]

Oh mann, endlich darf ich auch mal was verbessern! ;)

So is das ganze nämlich nich ganz richtig, da hat sich der Fehlerteufel eingeschlichen.

Delphi-Quellcode:

if (x >= 4) and (x >= 6) and

sollte wohl besser

Delphi-Quellcode:

 if (x >= 4) and (x <= 6) and

heißen, sonst kriegt man die Änderung nur für alle x > 5!