Skip to main content

Cara Menggerakkan Gambar Dengan Mouse Delphi

Cara Menggerakkan Gambar Dengan Mouse Delphi - Hari ini kita akan belajar membuat game sederhana di Delphi. Namun sebelum masuk ke logika pemrograman, kita pelajari yang paling dasar dulu, yaitu menggerakkan obyek menggunakan keyboard atau mouse. Obyek yang dimaksud di sini adalah kursor yang bisa berupa gambar atau shape.

Berhubung saya belum tahu cara menggerakkan gambar dengan keyboard, jadi kita menggunakan mouse aja. Berikut ini tutorial membuat game Delphi sederhana, cara menggerakkan gambar/shape menggunakan mouse Delphi.

Cara Menggerakkan Gambar Dengan Mouse Delphi


Berikut ini cara menggerakkan gambar/shape dengan mouse di Delphi.

1. Buat project baru di Delphi

Klik File > New > Windows VCL Application - Delphi

2. Masukkan komponen utama yang dibutuhkan.

Desain form seperti berikut ini.

Cara Menggerakkan Gambar Dengan Mouse Delphi
Cara Menggerakkan Gambar Dengan Mouse Delphi

Komponen yang dibutuhkan adalah sebagai berikut.

- 1 TPanel yang berfungsi sebagai dasar tempat Image.
- 1 TImage yang berfungsi sebagai obyek yang akan digerakkan.

Masukkan TPanel dengan cara:

Palette > Standard > TPanel

Masukkan TImage dengan cara:

Palette > Standard > TImage

Pada Properties Image1, setting properti berikut ini:
  • Picture > Load > Cari gambar png yang akan digunakan sebagai obyek.
  • Stretch > True
  • Transparent > True
  • Visible > True
Visible berfungsi untuk menampilkan gambar.
Stretch berfungsi untuk menampilkan image sesuai dengan bidang sehingga tampil full sekalipun diperbesar atau diperkecil.

3. Berikut ini source code program.

- Cari kode berikut ini

type
TForm2 = class(TForm)
Panel1: TPanel;
Image1: TImage;

Copy dan paste kode berikut ini tepat di bawah kode tersebut.

procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

- Cari kode berikut ini

var
Form2: TForm2;

Copy dan paste kode berikut ini tepat di bawah kode tersebut.

Overlay: Trect;

- Source code utama untuk menggerakkan gambar dengan mouse

Cari kode berikut:

implementation

{$R *.dfm}

Copy dan paste kode berikut ini tepat di di bawah kode di atas.

// Listing untuk menggerakkan kursor (image1) dalam panel1

procedure TForm2.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Image1.Left:= X - Image1.Width div 2;
Image1.Top:= Y - Image1.Width div 2;
Panel1.Cursor:=crNone;
end;

Catatan: Saya menggunakan Form2 makanya yang dideklarasikan juga Form2.

Jadi, Image1 dapat diganti dengan Shape atau yang lainnya. Jika dilihat dari kode program di atas, kita juga bisa modifikasi dengan menggerakkan 2 gambar atau lebih sekaligus dalam TPanel.

Lihat juga Contoh Program Delphi Menggunakan Database Access

Demikianlah cara menggerakkan gambar dengan mouse di Delphi. Setelah ini, kita akan lebih mudah membuat game desktop sederhana menggunakan Delphi. Semoga bermanfaat!
Contact Us: Komentar, saran dan masukan melalui WA 085396717324 dan Gmail Lara4store@gmail.com.