Menggeser komponen saat runtime di delphi

Umumnya komponen di suatu aplikasi tidak bisa digerakkan, digeser atau dipindah tempat saat aplikasi berjalan. Tapi adakalanya kita membutuhkan komponen yang bersifat fleksibel dapat dipindah-pindah, contohnya : jika kita ingin membuat aplikasi untuk mendesian tata ruang, kita bisa memanfaatkan cara ini yang dipadukan dengan komponen TImage.

Langkah-langkah :

  1. Buat form seperti gambar diatas.
  2. Ketik kode (di event OnMouseDown) untuk Button1.
    Menggeser komponen saat runtime di delphi
  3.  Run Program.

Download SourceCode