позициониране на mouse

Delphi 7.
Как да позиционирам mouse върху бутон при отваряне на форма?

procedure TForm1.FormShow(Sender: TObject);

var p: TPoint;

begin

  p.X := Button1.Left + Button1.Width div 2;

  p.Y := Button1.Top + Button1.Height div 2;

  p := Button1.ClientToScreen(p);

  SetCursorPos(p.X, p.Y);

end;

Не го прави! Изключително досадно е да местиш мишката на потребителя. Не е добра идея.

Linux isn't free, it's worthless.

Благодаря.
Получи се добре. Имам малки екранни форми, от които се избира. Мишката преди оставаше в позицията на избран бутон, който обикновено бе доста встрани. Така улесних последващото позициониране.

Нищо не си улеснил, най-много да ядеш майни по N пъти на ден за тази "екстра"...

[линк]

Всеки дразнител (придобивка) в програмата /която и да е тя/, действа определено време на предмониторното устройство. Времето е правопропорционално на перхидрола, съдържащ се в струкурата на устройството.След като мине този период, всеки дейста "по инерция" и всичко, дето е различно от общата обстановка започва да го дразни.
ПовЕрвай ми - втория период е мноого по-продължителен от първия. И почват едни ревове - "Махни го тва, та махни!".
Аз правя така: Казвам им , какво ще стане. Когато си взема паричките и оня започне да реве - припомням му какво е казал и го издоявам още за махането.

Така всички сме доволни след време...