program sederhana dengan menggunakan borland delphi

Ingin rasanya membuat sebuah program sederhana dengan menggunakan borland delphi, sedikit sharing dari saya kali ini akan saya coba membuat sebuah program sederhana, Yg perlu kalian persiapkan hanya software Borland delphi 7, bisa di download disini.
1. Buka Program Borland Delphi 7 anda Start > Programs > Borland Delphi > Delphi
2. Buatlah agar tampak seperti gambar berikut:

Hanya mengguanakan component "BitBtn"
Additional >> BitBtn

3. Klik pada Fo rm1 lalu ubahlah properti Capt ionnyapada jendela Obj ect Inspector menjadi  ‘First Program’
4. Pada Komponen Palette pilih tab Additional cari nama komponennya BitBtn , kemudian klik ganda,Objek BitBtn 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.
5. Ubahlah properti Caption-nya pada jendela Object Inspector menjadi ‘Message’.
6. Lakukan cara yang sama untuk membuat tombol yang kedua dengan Caption-nya menjadi ‘Tutup’.
7. 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');
8. untuk kembali ke Fo rm tekan F1 2 pada keyboard anda
9. Lakukan hal yang sama pada tombol yang kedua, kemudian isikan perintah berikut :
Application.terminate;
10. Untuk menjalankannya tekan F9 pada keyboard anda, atau pilih menu Run > pada menu bar.

Jika anda melakukannya dengan benar maka program anda dapatdicompile dan diru n. 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 Tu t u p diklik.
Program lengkapnya adalah :
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Showmessage ('This is my first Program');
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Application.terminate;
end;

end.



Tunggu Program sederhana saya selanjutnya ya.

Posted in: delphi