Delphi makes the window move back and forth

procedure movewindow();

constleftmax = 20;

leftmin = 1000;

beginwhile ( leftmax) do:= - 10;

while ( leftmin) do:= + 10;

end;procedure : tobject);

begin deletes the timer and stops execution.

killtimer(handle, 1);

end;procedure : tobject);

The begin timer id is 1,1000 milliseconds.

settimer(handle, 1, 1000, @movewindow);

end;

Create a new project, add a timer control to the form, and set its properties as follows:

interval=100 (you can take 1000 between 100, the higher the number, the slower the movement).

tag=2 (1 100 is recommended, the larger the number, the faster it moves) and then double-click the timer control, enter the following in **:

procedure : tobject);

beginleft:=left+;

if (left<=0) or (left>= then:=;

end;Just run it.

Use the api function movewindow

e.g. movewindow(,100,100,,;

This will move the window to 100,100 coordinates relative to the parent window, with the same height and width.

Define a Boolean global variable, when you start to enter data, set its value to false, save the data, set it to true, detect this value when closing the window, if it is false, throw a dialog box to remind the user if you need to save the data, if yes, save the data to close the window, if no, close the window directly. Isn't it possible?

Simple, which is your form2?

The position property of form1 is set to podefaultOtherwise, the initial ab is wrong.

To center it, you have to get the screen width height when you create it yourself.

You can set ab to 0 first, and move form1 to see if it will move with it.

The event to close the button is not seen in **.

Endless loops in programs It is recommended to use threads. It's a little better.

Of course you can.

But a good ** suggestion is to use threads to do it.

If each step in the loop is short, it can be used in the loop, and if the loop time is long, it is better to use multithreading.

Add a sentence before the loop; That's it, for example:

varl: integer

beginfor i:=0 to 100000 do:= inttostr(i);

end;end;

Like the ** above, run to the loop here, and the program will fake death! The card owner doesn't move, and it won't move until the cycle is over!

If you add a sentence in front; There won't be a problem of getting stuck!

As follows: var

l: integer

beginfor i:=0 to 100000 do;

inttostr(i);

end;end;

Set the top and left attributes of the panel.

The height of the form.

The width of the form.