MEMBUAT PROGRAM ON MOUSE MOVE DAN MEMBUAT SHORT CUT PADA PROGRAM DENGAN DELPHI 7

MEMBUAT PROGRAM ON MOUSE MOVE DAN MEMBUAT SHORT CUT PADA PROGRAM

Pada dasarnya Aplikasi ini berfungsi unut menampilkan nilai dari pergerakan pointer yang berubah ubah pada menu bar, dan memberikan solusi ketika terjadi error pada program.

1.      Buatlah sebuah form  kemudian save all lalu run program jika berhasil proses bisa dilanjutkan

2.      Buatlah button1 agar program lebih indah ketikan perintah

 

“showmessage('Asalamualaikum Wr.Wb.');” lalu run program.

 

3.      Buatlah button2 dan ubah caption “MOUSE MOVE”

 

berikan Event pada button2 OnMouseMove lalu ketikan perintah “i:=i+1; caption:=inttostr(i);” dan secroll keatas pada bagia uses sesudah ActnList; ketikan “var i :  integer;” = Karena akan dilakukan perhitungan dari pergerakan pointer maka variable nya integer.

 

4.      Buatlah button 3 dan ubah caption dengan “FOLLOW”

Kemudian berikan Event pada Form1 OnMouseUp lalu ketikan perintah “button3.Left:=x; button3.Top:=y;” dan OnMouseMove lalu ketikan perintah “button3.Left:=x; button3.Top:=y;” = Printah ini berfungsi ketika program dijalankan dan pointer mengkilk button 3 maka button akan mengikuti poniter.

5.      Buatlah button4 kemudian ubah caption menjadi “EXIT”

 

Kemudian ketikan  perintah “Application.Terminate;” = Perintah ini berfungsi untuk keluar dari program menggunakan Tombol Exit. Untuk memperikan fungsi ShortCut pada program makan mengalamai error terlebih dahulu, untuk memberikan error pada program berikan Even pada button4 OnMouseMove dan ketikan perintah

= Perintah ini berfungsi agar tombol Exit tidak bisa tersentuh oleh pointer.

 

6.      Buatlah Action List, pada menu setandar pilih action list.

 

Kemudian klik dua kali lalu akan muncul dialog pengaturan dan buat action lis klik “New Action” dan arahkan pointer ke “Action1” lalu pilih “Properties” pilih “ShortCut” kemudian edit menjadi “Ctrl + Q” = Fungsinya untuk mengakhiri program ketika program sedang terjadi error.

7.      Finishing buat button5 untuk memberitahu bahwa ketika program sedang terjadi error tekan ctrl + q.