Delphi 7 Part 1

Hai guys ...

Sekedar sharing aja ...
Di sini coding dari Borland Delphi untuk menampilkan tanggal dan jam, yaitu mengubah Caption dari labelnya.
Ini dia :

procedure TForm1.Timer1Timer(Sender: TObject);

begin

label1.Caption:=datetostr(date());

label2.Caption:=timetostr(time());

end;

kalau untuk membuat tombol tampil dan tombol keluar dengan logika yang sama :

procedure TForm1.Button1Click(Sender: TObject);

begin

label4.Caption:='100010112';

label6.Caption:='DIDIK';

label8.Caption:='Laki-Laki';

label10.Caption:='Jakarta';

label12.Caption:='Menulis';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

sekian,
semoga bermanfaat.