چطور می توان یک shape را از نقطه ای به نقطه دیگر برد؟؟؟

[salehp]

اگر کسی می داند ، لطف کند بگوئد که چطور می توان یک shape را از در طول اجرای برنامه از نقطه ای حرکت داد ، مثلا به نقطه دیگری برد؟؟؟
البته قاعدتا باید خاصیت های Left و Top را تغییر داد ، اما چطور در حین اجرای برنامه میتوان این کار را کرد؟؟؟

با تشکر از دوستانی که جواب بدهند...:متفکر::لبخندساده:

[nassim_20]

باید از TIMER استفاده کنی که یه متد بیشتر نداره و در اون کد زیر رو بنویس


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Shape1.Left := Shape1.Left + 1;
end;

که با خاصیت Interval می تونی سرعت حرکت رو زیاد و کم کنی

[اصغر (پآچ)]

سلام دوست من

با یه متغییر و چند حلقه تکرار می تونی به صورت دورانی هم تمام اجزا رو در زمان اجرا جابه جا کنی

موفق و موید باشی

[babak_delphi]

ببخشید چطور میشه با زاویه دلخواه دوران داد؟

[Hsimple11]

برای انجام اینگونه اعمال بهترین راه استفاده از OpenGl است. در سایت جستجو کنید. چون با استفاده از چنین کدهایی علاوه بر کیفیت پایین، حافظه بسیار زیادی را اشغال میکنید.