
procedure TFrmMain.TrkWaktuChange(Sender: TObject);begin TmrAnimasi.Interval:=TrkWaktu.Position;end;
procedure TFrmMain.Button1Click(Sender: TObject);var bentuk : integer; Lokasi : string;begin Lokasi:=ExtractFilePath(Application.ExeName); randomize; bentuk := random(4)+1; if bentuk = 1 then ImgBola.Picture.LoadFromFile(Lokasi+'Merah.jpg') else if bentuk = 2 then ImgBola.Picture.LoadFromFile(Lokasi+'Hijau.jpg') else if bentuk = 3 then ImgBola.Picture.LoadFromFile(Lokasi+'Biru.jpg') else if bentuk = 4 then ImgBola.Picture.LoadFromFile(Lokasi+'Kuning.jpg')
end;
procedure TFrmMain.PnlAreaClick(Sender: TObject);begin
end;
end.
1 comment:
شركة تخزين عفش بنجران
شركة عزل خزانات بنجران
شركة تعقيم خزانات بنجران
شركة صيانة خزانات بنجران
شركة غسيل خزانات بنجران
شركة صيانة مسابح بنجران
شركة تنظيف الاثاث بنجران
شركة جلي بلاط بنجران
شركة تنظيف شقق بنجران
شركة نقل عفش بنجران
شركة تنظيف موكيت بنجران
شركة تنظيف مجالس بنجران
شركة تنظيف مسابح بنجران
شركة تنظيف بنجران
شركة تنظيف ستائر بنجران
شركة مكافحة حشرات بنجران
Post a Comment