Untuk lebih memahami struktur pemrograman dengan Delphi buatlah program seperti pada tampilan dibawah ini. Langkah-langkah pembuatan :
1. Klik pada Form1 lalu ubahlah properti Caption-nya pada jendela Object Inspector menjadi ‘Program Sederhana’.
2. Pada Komponen Palette pilih tab Standard cari nama komponennya Button, kemudian klik ganda, Objek Button yang dihasilkan akan langsung terpilih yang ditandai dengan titik-titik kecil mengelilingi komponen tersebut. Kemudian atur posisinya seperti pada gambar. Perhatikan jika suatu objek terpilih, maka jendela Objek Inspector akan menyesuaikan dengan objek tersebut.
3. Ubahlah properti Caption-nya pada jendela Object Inspector menjadi ‘&Pesan’.
4. Lakukan cara yang sama untuk membuat tombol yang kedua dengan Caption-nya menjadi ‘&Tutup’.
5. Klik ganda pada tombol yang pertama anda buat tadi, maka anda akan masuk kebagian Code Editor. Kemudian ketikkan perintah berikut :
showmessage ('This is my first Program');
untuk kembali ke Form tekan F12 pada keyboard anda.
6. Lakukan hal yang sama pada tombol yang kedua, kemudian isikan perintah berikut :
Application.terminate;
7. Untuk menjalankannya tekan F9 pada keyboard anda, atau pilih menu Run > Run pada menu bar.
Jika anda melakukannya dengan benar maka program anda dapat dicompile dan di run. Hasil dari program tersebut adalah : akan menampilkan kotak pesan yang berisi ‘This is my first Program’ saat mengklik tombol Pesan dan program akan ditutup saat tombol Tutup diklik.
Program lengkapnya adalah :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Perintah yang secara otomatis dibuat oleh delphi saat kita membuka Delphi atau saat menambah komponen.
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('This is my first Program');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Perintah untuk mematikan program (Keluar dari program)
Perintah untuk menampilkan pesan
1. Klik pada Form1 lalu ubahlah properti Caption-nya pada jendela Object Inspector menjadi ‘Program Sederhana’.
2. Pada Komponen Palette pilih tab Standard cari nama komponennya Button, kemudian klik ganda, Objek Button yang dihasilkan akan langsung terpilih yang ditandai dengan titik-titik kecil mengelilingi komponen tersebut. Kemudian atur posisinya seperti pada gambar. Perhatikan jika suatu objek terpilih, maka jendela Objek Inspector akan menyesuaikan dengan objek tersebut.
3. Ubahlah properti Caption-nya pada jendela Object Inspector menjadi ‘&Pesan’.
4. Lakukan cara yang sama untuk membuat tombol yang kedua dengan Caption-nya menjadi ‘&Tutup’.
5. Klik ganda pada tombol yang pertama anda buat tadi, maka anda akan masuk kebagian Code Editor. Kemudian ketikkan perintah berikut :
showmessage ('This is my first Program');
untuk kembali ke Form tekan F12 pada keyboard anda.
6. Lakukan hal yang sama pada tombol yang kedua, kemudian isikan perintah berikut :
Application.terminate;
7. Untuk menjalankannya tekan F9 pada keyboard anda, atau pilih menu Run > Run pada menu bar.
Jika anda melakukannya dengan benar maka program anda dapat dicompile dan di run. Hasil dari program tersebut adalah : akan menampilkan kotak pesan yang berisi ‘This is my first Program’ saat mengklik tombol Pesan dan program akan ditutup saat tombol Tutup diklik.
Program lengkapnya adalah :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Perintah yang secara otomatis dibuat oleh delphi saat kita membuka Delphi atau saat menambah komponen.
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('This is my first Program');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Perintah untuk mematikan program (Keluar dari program)
Perintah untuk menampilkan pesan
