SetCursorPos relativ

[Delphiturbo]

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?

[Delphiturbo]

Zitat:

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 :stupid:

[1234588]

Zitat:

Zitat von Delphiturbo

Zitat:

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

[DeddyH]

Wäre doch auch mal eine schön sinnfreie Variante.

Delphi-Quellcode:

SetCursorPos(Mouse.CursorPos.X, Mouse.CursorPos.Y);

:stupid:

[Die Muhkuh]

Doll, Detlef :mrgreen:

[oki]

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

Gruß oki