Arsip: Satu listing program bisa di panggil di beberapa form

 
user image
more 8 years ago

musespratama

Mas2,,,,programmer,,, saya mau tanya kalo kita buat aplikasi itu kan terdiri dari beberapa form,nah saya kepengen ketika suatu form di close ato di open menggunakan satu perintah,,jadi ga perlu tiap form ada perintah form1.close ato form1.show,,,??? kemudian kalo bisa ada contoh sederhananya,,, terima kasih...:)
user image
more 8 years ago

jrp

Coba buat aplikasi baru dengan 2 buah form, yaitu Form1 (Unit1) dan Form2 (Unit2). Buat supaya Form1 bisa memanggil Form2 dengan menambahkan Unit2 pada klausa uses di Unit1. Pada Form2, tambahkan sebuah BitBtn dan ubah property Kind menjadi bkClose. Pada Form1 tambahkan sebuah Button, dan pada event OnClick button tersebut ketik kode: Form2.ShowModal; Apakah itu yang dimaksud dengan "suatu form di close ato di open menggunakan satu perintah"? jrp
user image
more 8 years ago

zuryafix

Mungkin bisa dilengkapi sebagai beriku : procedure TForm1.Button1Click(Sender: TObject); begin Application.CreateForm(TForm2, Form2); try Form2.Showmodal; finally Form2.free; end end;
user image
more 8 years ago

dr4cul453xy

@zuryafix: Mungkin bisa dilengkapi sebagai beriku : procedure TForm1.Button1Click(Sender: TObject); begin Application.CreateForm(TForm2, Form2); try Form2.Showmodal; finally Form2.free; end end;
Bisa juga dibuatkan procedure pemanggilan form dinamis seperti berikut :
procedure BukaForm (aFormClass : TFormClass);
begin
  with aFormClass.Create(Application) do
  try
    ShowModal;
  Finally
    Release;
  End;
end;
Cara Panggil :
procedure TForm1.Button1Click(Sender: TObject);
begin
  BukaForm(TFrmAnak);
end; 
Ingat, inisiasi procedure anda pada bagian Public/ Private atau Diluar Class (seperti contoh dibawah ini). [code:1:2dc2ece667]uses // Bagian Uses type TfrmAnak = class(TForm) { .... .... .... } private { Private declarations } public { Public declarations } end; //TAMBAHKAN DISINI procedure BukaForm (aFormClass : TFormClass); var frmAnak: TfrmAnak; implementation { .... .... .... }[/code:1:2dc2ece667] Jika anda inisiasi procedure pada bagian[u:2dc2ece667] public/ private [/u:2dc2ece667]maka pada syntax procedure yang berada pada bagian implementation, diubah menjadi "procedure NamaKelas.BukaForm (aFormClass : TFormClass);" misal, jika nama form anda frmAnak, maka procedure pada bagian implementasi akan menjadi :
procedure TFormAnak.BukaForm (aFormClass : TFormClass);
begin
  with aFormClass.Create(Application) do
  try
    ShowModal;
  Finally
    Release;
  End;
end;
[/u] Semoga Membantu
user image
more 8 years ago

zuryafix

Pada intinya konsep programnya adalah sama, yaitu memanggil form aktif untuk form anak dan menonaktifkan pada form induk. yang perlu digaris bawahi yaitu jika suatu form di create saat di panggil maka modus create form di tahap inisialisasi sudah tidak diperlukan lagi karena agar efektif dan efisien. Dengan langkah-langkahnya yaitu Pilih menu Project > View Source dan klik, kemudian sintak di bawah "Application.Initialize;" dan form induk ( misal form induknya form 1 ("Application.CreateForm(TForm1, Form1);") jangan dikomen, dan selain hal tersebut bisa di hapus atau diberikan tanda komen ({...} atau //). Semoga bisa lebih bermanfaat :)
user image
more 8 years ago

musespratama

OK2...makasih banyak masukan2nya....ane udah coba,dan ktm solusinya... thanks all :)
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com