MENAMPILKAN DATA PADA MEMO (LINTAS FORM)

buat lah form seperti dibawah ini :

form 1 

 dan form 2 :

setelah itu silahkan masukkan kode seperti dibawah ini :

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;