Ketika Anda mendesain Form1, tentunya muncul unit bernama Unit1 dan
di dalamnya terdapat deklarasi variabel:
var Form1: TForm1;
Gunakan variabel tsb sbb:
procedure...
begin
Form1:=TForm1.Create(self); // <--- INI YG BEDA
try
ShowModal;
finally
Form1.Free;
end;
end;
Lakukan hal yang sama u/ Form2 sbb:
procedure...
begin
Form2:=TForm2.Create(self); // <--- INI YG BEDA
try
ShowModal;
finally
Form2.Free;
end;
end;
Karena pointer dari TForm1 yg baru saja di-create sudah dicatat oleh
variabel Form1, maka Anda dapat menerapkan perintah yg terdahulu
yaitu:
Form1.Edit1.Text1:=Table1.FieldByName('xxxx').AsString;
Tetapi ingat, referensi thd variabel Form1 tsb hanya boleh dilakukan
SELAMA ANDA YAKIN BAHWA FORM1 BELUM DI-FREE. Jika tidak, maka akan
terjadi Access Violation saat run-time nanti.
Jika variabel Form1/Form2 tsb tidak ada (karena suatu hal), Anda
dapat create sendiri dengan meletakkan deklarasi:
var Form1: TForm1;
pada bagian INTERFACE Unit1, dan deklarasi:
var Form2: TForm2;
pada bagian INTERFACE Unit2.
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/CBxunD/vN2EAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
