ShowMessage Sebagai Pesan pada Delphi

Gunakan 2 Button (Tab Standard) yaitu Button1 dan Button2. Ubah Properties Caption Button1 menjadi “Pesan 1” dan Button2 menjadi “Pesan 2“.

Desain Form seperti gambar dibawah ini:

ShowMessage1

Masukkan kode program pada Button1 dengan cara klik 2 kali:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Isi Pesan disini');
end;

Dan masukkan kode program berikut pada Button2:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessagePos('Isi Pesan disini', 200, 200);
end;

Tampilan pesannya seperti gambar dibawah ini.

ShowMessage2

Perbedaan kode program pada Button1 dan Button2 adalah:

  • Button1 tidak memerlukan pengaturan letak posisi pesan karena secara otomatis akan tampil di tengah Layar Monitor Komputer, sedangkan Button2 memerlukan pengaturan letak posisi saat akan ditampilkan yaitu nilai 200 yang pertama untuk posisi X (Horizontal) dan nilai 200 yang kedua untuk posisi Y (Vertikal). Nilai ini dapat di ubah sesuai keinginan, tapi yang perlu diperhatikan adalah besar resolusi layar monitor komputer apakah cukup untuk nilai tersebut. Nilainya menggunakan pixel.

Coba ubah kode program pada Button2 menjadi:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessagePos('Isi Pesan disini', Screen.Width - 100, Screen.Height - 150);
end;

Lihat dimana Pesan itu akan tampil.

Download Source Code disini.

Iklan

, , , , , , , ,

  1. Tinggalkan komentar

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: