SetCursorPos relativ

Hallo

gibt eine keine gute und kürzter Weg um den Cursor auf das Objekt in der Mitte zu positionieren?

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

begin

SetCursorPos(left + Panel1.Left +Button1.left+Button1.Width div 2,Top + 30 {Titelleiste Höhe :( } +Panel1.Top + Button1.top + Button1.Height div 2);

end;

**1234588**

ist das nicht kurz genug?

//edit
wo soll der cursor denn hin?

Zitat von 1234588:

ist das nicht kurz genug?

//edit
wo soll der cursor denn hin?

auf sich selbe natürlich

**DeddyH**

Es gibt da in der VCL so niedliche Funktionen wie ScreenToClient() bzw. ClientToScreen().

**Die Muhkuh**

Du könntest eine Funktion schreiben, die durch alle Parents iteriert und die Left-Angaben dazu zählt.

Oder das von Detlef

**1234588**

Zitat von Delphiturbo:

Zitat von 1234588:

ist das nicht kurz genug?

//edit
wo soll der cursor denn hin?

auf sich selbe natürlich

der cursor soll auf sich selbst?

**Die Muhkuh**

Auf die Komponente, imho.

**DeddyH**

Wäre doch auch mal eine schön sinnfreie Variante.SetCursorPos(Mouse.CursorPos.X, Mouse.CursorPos.Y);

**Die Muhkuh**

Doll, Detlef

**oki**

Ich würd noch ein Sleep einbauen damit es nicht so schnell geht. Sonst sieht man ja gar nichts.

Gruß oki

SetCursorPos relativ

SetCursorPos relativ

Re: SetCursorPos relativ

Re: SetCursorPos relativ

Re: SetCursorPos relativ

Re: SetCursorPos relativ

Re: SetCursorPos relativ

Re: SetCursorPos relativ

Re: SetCursorPos relativ

Re: SetCursorPos relativ

Re: SetCursorPos relativ

Forumregeln

1234588 Registriert seit: 14. Jan 2007 Ort: Stuttgart 164 Beiträge	#2 Re: SetCursorPos relativ 7. Jun 2008, 11:43 ist das nicht kurz genug? //edit wo soll der cursor denn hin?
	Zitat

Delphiturbo (Gast) n/a Beiträge	#3 Re: SetCursorPos relativ 7. Jun 2008, 11:50 Zitat von 1234588: ist das nicht kurz genug? //edit wo soll der cursor denn hin? auf sich selbe natürlich
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#4 Re: SetCursorPos relativ 7. Jun 2008, 11:51 Es gibt da in der VCL so niedliche Funktionen wie ScreenToClient() bzw. ClientToScreen(). Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#5 Re: SetCursorPos relativ 7. Jun 2008, 11:52 Du könntest eine Funktion schreiben, die durch alle Parents iteriert und die Left-Angaben dazu zählt. Oder das von Detlef Manuel Blog reactivated
	Zitat

1234588 Registriert seit: 14. Jan 2007 Ort: Stuttgart 164 Beiträge	#6 Re: SetCursorPos relativ 7. Jun 2008, 11:52 Zitat von Delphiturbo: Zitat von 1234588: ist das nicht kurz genug? //edit wo soll der cursor denn hin? auf sich selbe natürlich der cursor soll auf sich selbst?
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#7 Re: SetCursorPos relativ 7. Jun 2008, 11:53 Auf die Komponente, imho. Manuel Blog reactivated
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.542 Beiträge Delphi 11 Alexandria	#8 Re: SetCursorPos relativ 7. Jun 2008, 11:55 Wäre doch auch mal eine schön sinnfreie Variante.SetCursorPos(Mouse.CursorPos.X, Mouse.CursorPos.Y); Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#9 Re: SetCursorPos relativ 7. Jun 2008, 11:58 Doll, Detlef Manuel Blog reactivated
	Zitat

oki Registriert seit: 30. Dez 2002 Ort: Brandshagen 1.819 Beiträge Delphi 2007 Professional	#10 Re: SetCursorPos relativ 7. Jun 2008, 12:02 Ich würd noch ein Sleep einbauen damit es nicht so schnell geht. Sonst sieht man ja gar nichts. Gruß oki 42
	Zitat