delphide trafik lambası nasıl yapılır lütfen çok acil yardım

[nisan]

delphide bir kavşak yapacağız ve bir araba olacak bu araba kırmızı yanınca duracak yeşil yanınca geçecek acil yardımınıza ihtiyacım var .arabayı da biz çizeceğiz

[uğur alkan]

yapabilirsin ama önce form kurallarını oku............ başlığını düzelt !!!!!
aksi halde yardım alamazsın....

önce iki tane resmi üst üste koy;
yollar ve araba ....

sonrada;

Kod: Tümünü seç

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i:integer;
begin
for i:=1 to 200 do
begin
form1.Image2.Left:=i; /top kullanırsan yukarı aşagı gider....
sleep(10);
form1.Image2.Refresh;
end;
end;

araban yola devam edecektir.

[mussimsek]

Forum kurallarına uymamak bizi üyeliğimizden eder