Cara Menggerakkan Gambar Dengan Mouse Delphi
"Silahkan kunjungi postingan Cara Menggerakkan Gambar Dengan Mouse Delphi untuk membaca artikel selengkapnya dengan klik link di atas."
2 min read
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 |
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
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;
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;
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}
{$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;
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!