Thema: Delphi SetCursorPos relativ

Einzelnen Beitrag anzeigen

Delphiturbo
(Gast)

n/a Beiträge
 
#1

SetCursorPos relativ

  Alt 7. Jun 2008, 11:28
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;
Miniaturansicht angehängter Grafiken
setcursorpos_relativ_871.jpg  
  Mit Zitat antworten Zitat