Arsip: Tulis Dan Hapus USES

 
user image
more 17 years ago

dcnter

salam delphier.. mau bertanya lagi niii.. gimana caranya kita menulis ataupun menghapus suatu USES secara Run Time..?? maksudnya gini.. gw lagi buat suatu program dimana pada saat salah satu form dieksekusi maka secara Run Time USES untuk suatu unit akan di create (ditulis) dan setelah form tersebut di Close maka USES yang telah di tulis tadi akan dihapus... Minta syntaxnya donk.. :oops: :) mat kasi blom nya...
user image
more 17 years ago

mas_kofa

bukan kah saat formcreate semua yg ada pada form (termasuk uses), akan diciptakan secara ostosmastis, begitu juga sebaliknya saat formdestroy / formclose Maaf Jika Salah Btw : pertanyaannya kok aneh ya???
user image
more 17 years ago

mat_koder

konsep seperti itu ngga perlu. Keperluan anda sepertinya dapat dilakukan dengan cara Dynamic linking : form yg hendak ditampilkan ditaruh dlm DLL terpisah dari aplikasi utama.
user image
more 17 years ago

DelphiExpert

benar mat_koder bilang...
user image
more 17 years ago

dcnter

terima kasih ni bos2..
bukan kah saat formcreate semua yg ada pada form (termasuk uses), akan diciptakan secara ostosmastis, begitu juga sebaliknya saat formdestroy / formclose
Btw : pertanyaannya kok aneh ya???
maksudnya gini mas, gw buat form yang fungsunya manggil form lain, sewaktu gw manggil form yang lain dari form awal ternyata ada komponent yang Incompatible...klu gw cek sih ternyata kalau uses komponen itu dihapus maka errornya hilang..namun utk form awal uses itu diperlukan..makanya gw pengen klu diform awal uses itu ada dan di form yang dipanggil uses di form awal dihapus namun sesudah form yang dipanggil Close maka uses di form awal di create lagi... ada masukkan bos2..??? :oops:
user image
more 17 years ago

old_shutterhand

bikin bpl aja file>new>package masukin tuh unit-unit komponent +unit form2 trus pokoknya semua yg dibutuhin lalu save menjadi dpk> compile aklo ada error unit yg required tinggal masukin, compile again mpe jd bpl. lalu di project option centang "build with runtime packages" distribusi akan menjadi lebih besar dikit, tapi memory saat aplikasi running menjadi lebih kecil. teknik ini biasa dipakai aplikasi yg kelas wah... kaya.. tuneup utilities dll. CMIIW @DE enak jadi onelite tinggal kasih clue or confirmed yg diatasnya :mrgreen:
user image
more 17 years ago

DelphiExpert

itu namanya dependencies, anda ngga' bakalan bisa membuang itu kecuali membuang unit/komponen yg digunakan dlm komponen / form yg bersangkutan. lagian ada teknik lain selain melalui uses (mainform - uses - other form), coba dibalik (other - uses - mainform). caranya gimana? gunakan registerclass atau buat semacam class registry sendiri utk kemudian berdasar class of other form tsb; instance akan dibuat otomatis jika ada pemanggilan atas form tsb. ) other form:

unit OtherForm
interface
uses
  ...,
  MainUnit;
type
  TOtherForm = class(TForm);
  ...
  end;
implementation
initialization
  MainUnit.RegisterFormClass(TOtherForm);
finalization
  MainUnit.UnregisterFormClass(TOtherForm);
end.
) mainunit:

unit MainUnit;
interface
uses
  ...; // OtherForm ngga' perlu di add
type
  TFormClass = class of TForm; // typecast form class
  ...
implementation
// show TOtherForm
procedure MainForm.Button1Click(Sender: TObject);
begin
  ShowRegisteredForm('TOtherForm'); // gunakan nama class sebagai string; so no dependecies to OtherForm.pas
end;
procedure MainForm.ShowRegisteredForm(const AFormClassName: string);
var I: Integer;
      AForm: TForm;
begin
  for I:= 0 to FClassRegistry.Count - 1 do
    if SameText(TFormClass(FClassRegistry[I]).ClassName = AFormClassName) then
    begin
      AForm:= TFormClass(FClassRegistry[I]).Create(nil);
      AForm.ShowModal;
      Exit;
    end;
end;
bingung ya... sukurin hak.. hak.. hak.. :mrgreen:
user image
more 17 years ago

dcnter

bingung ya... sukurin hak.. hak.. hak..
emang binguuunnng....khi..khi..khiiiii...... mohon pencerahan yang lebih cerah lagi.... :) but Tq2 buaaanget buat muaaa2 nya
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

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