Cara Membuat Game Delphi Sederhana
ANAKTEKNO.COM, Cara Membuat Game Delphi Sederhana - 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 Membuat Game Delphi Sederhana
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 |
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
TForm2 = class(TForm)
Panel1: TPanel;
Image1: TImage;
Copy dan paste kode berikut ini tepat di bawah kode tersebut.
- Cari kode berikut ini
Form2: TForm2;
Copy dan paste kode berikut ini tepat di bawah kode tersebut.
- Source code utama untuk menggerakkan gambar dengan mouse
Cari kode berikut:
{$R *.dfm}
Copy dan paste kode berikut ini tepat di di bawah kode di atas.
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.
Demikianlah Cara Membuat Game Delphi Sederhana. Tutorial cara menggerakkan gambar dengan mouse di Delphi ini akan lebih memudahkan membuat game desktop sederhana menggunakan Delphi. Semoga bermanfaat!
Anak Tekno Tertarik dengan dunia Blog dan SEO sejak 2017 dan terus belajar sampai detik ini..
