Form Moving

hi Cesario
 i tried it dos't work !!!!!!!!!
just form move just one a time to corner then stoped
i want it to move always  on screen in circular

Hi Faroug,

it works fine ;-)

But just add this Field to the public part of your form:

Type
  TForm1 = Class ( ...
  Public
     Angle : Integer;
     .....
  End;

Best Regards

Cesario
 

hi Cesario
 i tried it dos't work !!!!!!!!!
just form move just one a time to corner then stoped
i want it to move always  on screen in circular

omeralfaroug - check your code. I tried it on D5-it works juuuuust fine :)
actually, if you are using Cesario's code, it's impossible to have form moved to the corner and then _stopped_, because there's no code for timer stopping => form will be moved endlessly (ok, until you close it) and it'll be outside of screen area. So, "Problem's at your side!" [remembering old programmer joke, if interested I can post it fully. offtopic, of course]

W_Fox

hi W fox
all u say is right {(=> form will be moved endlessly (ok, until you close it) and it'll be outside of screen area)}
 also i think ur words is realy like ur Name :)
thanks for help
regards...
omer alfaroug

Hello omer,

you can change the Parameters:

 x := 200+round(200*cos(angle*pi/180));
 y := 100+round(200*sin(angle*pi/180));

have a nice day ;-)

Cesario

Thanks  Cesario

i change parameters Beforeu say  that and now it works
thanks for ur help and good luck with my points :-)