Belajar Delphi
Membuat Program Sederhana Dengan Borland Delphi 7Membuat Program Sederhana Dengan Borland Delphi 7 3.3 out of 5 based on 3 votes.
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..:)
Post a Comment for "Belajar Delphi"