Menampilkan text Di Label menggunakan delphi

1. Buatlah Aplikasi baru dengan cara klik file->new-> application
2. Masukan Komponen yang ada di bawah ini

Edit1
· Caption	(di kososngkan)
Label1
Button1

3. Klik ganda pada Form1 dan ketikan procedure berikut :

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Clear;

end;

4. Klik ganda pada tombol ‘Button1’ dan ketikan procedure berikut :

procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption:=Edit1.Text

end;

Posted in: Pemograman Delphi