saya pengen nyoba yang ini, tapi waktu di run ga bisa. itu kenapa? oia beda randomize sama randomizer apa?
Misi gan, mau nanya. Saya punya ide buat naro gambar di TImage. Kalau button di klik lalu gambar berganti ke gambar selanjutnya. Saya gatau code buat ganti gambar. Saya udah coba pake procedure TForm1.Button1Click(Sender: TObject); begin Image1.Hide; image2.show; image2.Hide; image3.Show; end; ...
ohh jadi nanti button di pasang di satu form, begitu button di klik lalu muncul form baru, begitu selesai terus form tersebut di close. Button di klik lalu muncul form yang baru lagi. Begitu kan ide dari agan? Tadinya saya rencana mau bikin button di tiap form, jadi begitu button di klik maka fo...
yang prosedur button klik. Oh berarti saya salah persepsi, saya kira prosedur button klik di taruh di tiap form. Soalnya yang saya ingin buat itu apabila button pada tiap form di klik maka muncul form baru dan form lama akan hide. Sebenarnya bukan request, tapi saya mau bertanya secara bertahap...
abaikan? berarti application harus di close dulu? mulai Run dari awal lagi? oia, proses ini di taruh di tiap form? 4. proses show form sesuai unik random dari fungsi di atas: procedure TForm1.btn1Click(Sender: TObject); var i,maxRandom:Integer; begin Randomize; maxRandom := 24; //--> kamu ten...
Code di atas sudah saya coba dan berhasil memunculkan form secara random, saya mencobanya pada 4 form. Tetapi ketika saya coba masih terdapat form yang berulang, lalu tidak muncul ShowMessage('Random Udah Maxi..') Dan juga terjadi debug Lalu ada yang ingin saya tanyakan, procedure TFor...
Cara agan - agan semua sudah saya coba. Tapi semuanya kalau di klik pasti nilai i nya selalu sama. var i : integer; procedure TForm1.Button1Click(Sender: TObject); begin //agan Coolx i := random(4); edit1.Text := IntToStr(i); end; procedure TForm1.Button2Click(Sender: TObject); begin //agan Re...
gan kalau kemunculan form bisa di random ga? misalkan punya 4 form, ga berurutan keluar, jadi di random gitu.. ini code yang di pake procedure TForm1.Button1Click(Sender: TObject); begin Form1.hide; Form2.show end; procedure TForm2.Button1Click(Sender: TObject); begin Form2.Hide; Form3.show; e...
