Probelm mit MouseMove

Schwabe · Hält's aus hier Beiträge: 8

Hi,

Ich hab eine Problem mit MouseMove. Ich ermittle in der procedure

Delphi-Quelltext

1:
2:

procedure TFunktionsgraph.ISchaubildMouseMove(Sender: TObject; Shift: TShiftState;
          X, Y: Integer);

die Mauszeigerposition

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

  breite:= ISchaubild.width;
  hoehe:= ISchaubild.height;
  x1:=((x-breite/2))/Einheit;
  y1:=((hoehe/2-y))/Einheit;
  Statusbar.Panels[0].Text:='Mauszeigerposition ('+FloattoStrf(x1,ffFixed,2,1)+ ' / '
                       + FloatToStrf(y1,ffFixed,2,1) + ')';

wenn ich jetzt aber in die OnMouseMove procedure noch eine Befehl mit SetCursoPos(...) hineinschreib wird sobald GetCursorPos(..) aktiv ist meine Mauszeigerposition nicht mehr angezeigt.

Wie kann ich diese Problem umgehen?

Wäre nett wnen mir jemand helfen könnte!

MFG Schwabe

smiegel · Verfasst: Di 20.01.04 14:07

Hallo,

ggf. musst Du noch die Koordinaten mit ScreenToClient bzw. ClientToScreen umwandeln.

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

Schwabe · Hält's aus hier Beiträge: 8

Des hab ich scho die Mausposition wird ja getrennt von dem anderen ausgegeben. Mit dem SetCursorPos fahr ich ein Schaubild von einer Funktion mit dem Mauszeiger nach. Das klappt auch, bloß werden dann halt nicht mehr die Koordinaten von dem Mauszeiger angezeigt.

Hoffe du verstehts was ich meine

.

MFg Schwabe

Ehemaliges Mitglied Erhaltene Danke: 1

Bau mal ein Statusbar1.Update / Repaint oder Refresh ein bzw ein Application.Processmessages. Du musst deiner anwendung auch die Chance geben die Statusbar zu aktualisieren.

Schwabe · Hält's aus hier Beiträge: 8

Vilen Dank! Funktioniert einwandfrei mit Statusbar.Update !

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme