Peralihan teks tombol dengan klik

Di pelajaran sebelumnya, kita menambahkan dua tombol. Satu tombol akan mengubah teksnya saat diklik, sedangkan tombol lainnya akan menutup jendela yang sedang aktif. Di bagian ini, kita akan menambahkan logika yang sedikit lebih rumit ke tombol pertama. Setiap kali tombol diklik, teksnya akan berganti bolak-balik. Materi ini utamanya bertujuan untuk mempelajari sintaks Pascal.

Buka proyek yang pernah kita buat sebelumnya

Kamu bisa langsung masuk ke fungsi peristiwa klik di file pas untuk mengubah kode, atau gunakan langkah di bawah untuk menuju fungsi peristiwa tombol pertama.

Ganti kode fungsi peristiwa di atas dengan kode berikut

procedure TForm1.Button1Click(Sender: TObject);
{ Gunakan properti Tag tombol untuk mencatat status dan wujudkan peralihan teks }
begin
  // Cek nilai penanda Tag, 0 = status awal, 1 = status setelah diganti
  if Button1.Tag = 0 then
  begin
    Button1.Caption := 'Press again';  // Ubah teks tampilan tombol
    Button1.Tag := 1;                  // Tandai status menjadi 1
  end
  else
  begin
    Button1.Caption := 'Press';        // Kembalikan teks asli
    Button1.Tag := 0;                  // Atur ulang penanda menjadi 0
  end;
end;Code language: JavaScript (javascript)

Langkah menuju fungsi peristiwa tombol

Buka proyek Lazarus yang sudah disimpan, pindah ke tampilan desain Form1 lalu klik tombol bernama Press (Button1) di layar

Setelah kontrol terpilih, buka tab Events (Peristiwa) di panel Object Inspector (Pemeriksa Objek) sebelah kanan

Cari peristiwa OnClick, klik kolom input di sebelah kanannya lalu tekan tombol titik tiga ... di ujung kolom, editor kode akan langsung melompat ke fungsi yang sesuai

Hapus semua kode lama, tempelkan kode lengkap di bawah ini, simpan proyek → kompilasi → jalankan program. Klik tombol dan teksnya akan terus berganti bolak-balik

1. Properti Tag: Properti bilangan bulat bawaan semua kontrol jendela, digunakan untuk menyimpan penanda angka buatan sendiri. Di sini hanya pakai dua status yaitu 0 dan 1
2. Klik pertama: Tag=0 → Teks berubah menjadi Press again, Tag diisi nilai 1
3. Klik kedua: Tag=1 → Teks kembali menjadi Press, Tag diatur ulang menjadi 0
4. Klik berulang akan terus menukar teks, menghasilkan efek sakelar / peralihan

Kode di atas memanfaatkan properti Tag tombol untuk menyimpan status tombol, sehingga dapat mewujudkan efek peralihan teks.

Tampilan Saat Dijalankan

Peralihan teks tombol dengan klik