buat lah form seperti dibawah ini :
form 1
var // variabel global
Form1: TForm1;
jk:string;
hobi: string;
implementation
uses Umemo;
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label5.Caption:=TimeToStr(now);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageDlg('Data telah dicetak',mtInformation,[mbOK],0);
if CheckBox1.Checked=True then hobi:=hobi+'nonton, ';
if CheckBox2.Checked=True then hobi:=hobi+'main, ';
if CheckBox3.Checked=True then hobi:=hobi+'baca';
Form1.Visible:=False;//menyembunyikan form1
Form2.Show;//memperlihatkan form2
//Form2.Memo1.Clear;
Form2.Memo1.Lines.Add('Waktu Input data Pkl.
'+Label5.Caption);
Form2.Memo1.Lines.Add('Nama : '+Edit1.Text);
Form2.Memo1.Lines.Add('Agama : '+ComboBox1.Text);
Form2.Memo1.Lines.Add('Jenis Kelamin : '+jk);
Form2.Memo1.Lines.Add('Hobi : '+hobi);
hobi:='';
Form2.Memo1.Lines.Add('');
Form2.Memo1.ScrollBars:=ssVertical;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 then
jk:='laki-laki'
else
jk:='perempuan';
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Form2.Visible:=False;//menyembunyikan form1
Form1.Show;//menampilkan form1
Form1.Edit1.Text:='';
Form1.ComboBox1.ItemIndex:=-1;
Form1.RadioGroup1.ItemIndex:=-1;
Form1.CheckBox1.Checked:=False;
Form1.CheckBox2.Checked:=False;
Form1.CheckBox3.Checked:=False;
end;
Tidak ada komentar:
Posting Komentar