Solved

Form Moving

Posted on 2002-05-05
8
182 Views
Last Modified: 2010-04-04
hi
i want a form  to be moved on screen in circular moving
0
Comment
Question by:omeralfaroug
  • 4
  • 3
8 Comments
 
LVL 8

Accepted Solution

by:
Cesario earned 50 total points
ID: 6990339
add a timer component to your Form

procedure TForm1.Timer1Timer(Sender: TObject);
VAR
 x,y : Integer;
begin
  x := 400+round(200*cos(angle*pi/180));
  y := 200+round(200*sin(angle*pi/180));
  self.left := x;
  self.top := y;
  inc(angle,5);
  if Angle>360 then angle := 0;
end;

good luck

Cesario
0
 

Author Comment

by:omeralfaroug
ID: 6993338
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
0
 
LVL 8

Expert Comment

by:Cesario
ID: 6993346
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
 
0
Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 

Author Comment

by:omeralfaroug
ID: 6993470
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
0
 

Expert Comment

by:W_Fox
ID: 6993613
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
0
 

Author Comment

by:omeralfaroug
ID: 6995717
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
0
 
LVL 8

Expert Comment

by:Cesario
ID: 6995797
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
0
 

Author Comment

by:omeralfaroug
ID: 6996040
Thanks  Cesario

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

Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Intraweb submit form as a POST request 4 327
Communication Between RC4 Delphi <-> PHP 3 123
Delphi : could not find program, '...exe' 2 193
Print Graphic and Text to Epson TM-T88v 12 389
This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

830 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question