minulla on kuva formilla ja haluaisin sen liikkuvan edestakaisin formilla laidasta laitaan, miten tämä onnistuu mahdollisimman lyhyellä koodilla?
Miten liikkuva kuva delphissä
aloittelija
4332
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 4
Vanhimmat
Liikuta kuvaa timerilla. Katso lisää
http://www.mit.jyu.fi/vesal/kurssit/winohj/html/delphi/m12.htm
Eli osaan kyllä kielen alkeet ja sain tämänkin tehtyä alla olevalla tavalla mutta tarkoitukseni oli kysyä että saisin tällaisen koodin toimimaan ilman apumuuttujia käyttäeni hyödyksi kuvan "mittoja" ym formin "mittoja" ja mahdollisimman lyhyesti, itse oon tätä miettiny kauan mut en vaan saa päähäni miten sen teen, kiitos kuitenkin tuosta edellisestä vastauksesta....
/////////////////////////////////////////////////
begin
if (Image.Left Image.Width < Form1.ClientWidth) and (i=0)
then
begin
image.Left := image.Left 1;
end;
if
Image.Left Image.Width = Form1.ClientWidth
then
begin
i := i 1;
end;
if i = 1 then
begin
image.Left := image.Left - 1;
end;
if Image.Left Form1.ClientWidth < Form1.ClientWidth then i:=0;
end;
// formin createen
i:=0;
// public:iin
i : byte;
////////////////////////////////////////////////
Tässä nyt on yksi tapa:
Ensin uses listaan lisätään Math.
Image.Left:=round((1 sin(GetTickCount/1000))*(ClientWidth-Image.Width)/2);
......