<div>
Click on the MouseMove event of the Button and you 'll get this procedure header, and i added a code to move if from left 200 to left 50 and back.<br />
<br />
procedure TForm1.Button1MouseMove(Se<wbr />nder: TObject; Shift: TShiftState; X,<br />
&nbsp; Y: Integer);<br />
begin<br />
&nbsp; if<br />
&nbsp; &nbsp; button1.Left &lt;&gt;&nbsp;200 then<br />
&nbsp; &nbsp; button1.Left := 200<br />
&nbsp; else<br />
&nbsp; &nbsp; button1.Left := 50;<br />
end;
</div>


Click on the MouseMove event of the Button and you 'll get this procedure header, and i added a code to move if from left 200 to left 50 and back.

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if
    button1.Left <> 200 then
    button1.Left := 200
  else
    button1.Left := 50;
end;

<div>
<div class="content wysiwyg-content">
I've no doubt that you've all seen what I'm about to describe...<br />
<br />
I'm trying to find the code involved with the old moving button in window joke - you know the one where as you attempt the click the 'click me to win a prize' as soon as the cursor position approaches the button the button moves off and is therfore impossible to press.<br />
<br />
I'm interested in seeing how this is built (I've a rough idea) - can anyone point me in the direction of some code please?<br />
<br />
Thanks
</div>
</div>


I've no doubt that you've all seen what I'm about to describe...

I'm trying to find the code involved with the old moving button in window joke - you know the one where as you attempt the click the 'click me to win a prize' as soon as the cursor position approaches the button the button moves off and is therfore impossible to press.

I'm interested in seeing how this is built (I've a rough idea) - can anyone point me in the direction of some code please?

Thanks

The old moving button joke?

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.