Membuat Program Hello World Menggunakan Delphi 7

Rabu, 12 Januari 2011

Setelah beberapa postingan saya sebelumnya tentang Visual Basic 6.0, maka kali ini saya menyempatkan diri untuk memposting latihan pembuatan program sederhana menggunakan Delphi 7.

Pembuatan program di delphi bisa di sebut gampang-gampang susah kalau dibandingkan dengan Visual Basic 6.0, soalnya saat kita bermain di kode listing, akan membuat kita tambah pusing he~he.

Daripada tambah pusing langsung saja kita mencoba membuat program sederhana hello word di delphi dengan harapan bisa membuat program yang lebih besar lagi tentunya.

Pertama Desainlah sebuah form berikut pada Form Designer . Kemudian simpan dengan dengan nama :
Unit : UHello.pas Project : HelloWord.dpr


Kemudian ketiklah kode program berikut ini pada Code Editor :

procedure  TFHello.FormActivate(Sender: TObject);
begin
edtKata.Clear;
lblKata.Caption := '';

edtKata.SetFocus;
end;

procedure  TFHello.btnTampilClick(Sender: TObject);
begin
lblKata.Caption := edtKata.Text;
end;

procedure  TFHello.btnHapusClick(Sender: TObject);
begin
edtKata.Clear;
lblKata.Caption := '';

edtKata.SetFocus;
end;

procedure  TFHello.btnMaroonClick(Sender: TObject);
begin
lblKata.Font.Color := clMaroon;
end;

procedure  TFHello.btnNavyClick(Sender: TObject);
begin
lblKata.Font.Color := clNavy;
end;

procedure  TFHello.btnTealClick(Sender: TObject);
begin
lblKata.Font.Color := clTeal;
end;

procedure  TFHello.btnKeluarClick(Sender: TObject);
begin
Application.MessageBox('Terima Kasih Telah Menggunakan Program Ini',
'Byee.. Byee..', MB_OK + MB_ICONINFORMATION);
Application.Terminate;
end;
Share this article :

3 komentar:

  1. Setelah it tekan run atau F9 untuk menjalankan program....

    Komentar dan saran selalu saya nantikan......

    Semoga bermanfaat....

    BalasHapus
  2. Komentar ini telah dihapus oleh pengarang.

    BalasHapus

Followers on Facebook

 
Copyright © 2011. Jangan Malu Menjadi Programer - All Rights Reserved
Proudly powered by Blogger