agan2.. BAGAMANA sich cara agar SAAT RUN PROGRAM DENGAN FORM BANYAK memory yang terpakai dikit..gitu?? :?: Soalnya saat run program yang banyak form makan banyak memory... trus saat cetak gambar di report sampek OUT OF MEMORY... GIMANA CARA AGAR program itu makai memorynya gak terlalu banyak... Tolong bantuan AGAN2 DELPHI.. :?: :?: [i:c4651ae165][/i:c4651ae165]

Salah satu cara paling cepat yaitu menaikkan RAM komputer/laptop agan beberapa penyebab program delphi out of memory: 1. Komponen VCL terlalu banyak dalam 2. seperti diatas form terlalu banyak 3. Ada virus yang menumpang di Memory sehingga space memory yg tersedia tidak cukup 4. Penggunaan image (gambar dan sejenisnya) yang terlalu tinggi resolusinya Mungkin itu pentingnya ditentukan spesifikasi minimum dalam menjalankan program agar pada komputer user/pengguna tidak hang Solusinya mungkin klo form yg digunakan tidak terlalu sulit...bisa dilakukan dengan meng-create dan free-kan form sama hanya dengan komponen VCL yang lain sehingga tidak terjadi penumpukan ini saja dari saya siapa tahu dibawah ada yg kasih lebih...mudah2an membantu

kalo virus sich enggak.. Tapi kalo nampilin gambar dari database yang resolusi yng agak besar sich lumayan... tapi gak itu seperti masalahnya... emang formnya yang banyak n ane pake componen flat juga.. tapi saya cara script untuk free form yang dimaksud yang ampuhh tuh gimana gan?? script yang gini gan maksudnya : creat ... except free end; atau creat .. finally ane kurang terlalu paham free yang bener?? tolong bantuan lagi agan2.. please..!

ak kurang ngerti pertanyaannya...?!!! maksdunya kaya begini ya mas bro... var aform:=TForm.create(nil); try aform.Show; finally; aform.Free; end; :D :D

mungkin ini maksud anda :

with TForm2.Create(Application) do
try
  showmodal;
finally
  release;
end;

sebelum menggunakannya, ingat untuk memindahkan TForm2 (form yang mau anda panggil secara dinamis) dari List "Auto Create Form" yang ada di "Project-Project Option-Forms" ke list "Available Forms" Untuk lebih jelasnya, anda bisa ngintip ke Reshi Mahendra Blog

thnk blognya.. :) aGAN dr4cul453xy ..SAAT MANGGIL FORM DINAMIS.. KOK dbgrid gak fungsi n pemanggilan querynya jadi error itu apanya gan?a setingan lagi? ad?? :(

@darsaneit: SAAT MANGGIL FORM DINAMIS.. KOK dbgrid gak fungsi n pemanggilan querynya jadi error itu apanya gan?a setingan lagi? ad?? :(

Kemungkin anda ada melakukan "operasi database" (tabel,query,load data ke grid, etc) pada event OnCreate formnya. Jika iya, pindahkan operasi tersebut ke event OnShow form anda. Kalau bukan itu masalahnya, coba post detail error message-nya saat anda mengalami error tsb disini.

formstyle masih FSNORMAL FORM MENU DAN FORM ANAK; form anak saya pindah ke AVAILABLE FORMS dan menunya di AUTO-CREAT FORM saya pake script ini

with aFormClass.Create(Application) do
  try
    Caption := 'Disini diisi Caption Form';
    ShowModal; //Tampilkan Form dengan Modal active
  finally
    Release; // Hapus memory
  end;

manggilnya dari form menu menggunakan tombol ExtShowForm(TF_ANAK); erornya tidak bisa showmodal; OZA COBA KASIH CONTOH GAN form1 untuk menu yang manggil form2 untuk anak.. gimana ? tapi form 2 sudah pindah ke AVAILABLE FORMS[/code]

@darsaneit: erornya tidak bisa showmodal; OZA COBA KASIH CONTOH GAN form1 untuk menu yang manggil form2 untuk anak.. gimana ? tapi form 2 sudah pindah ke AVAILABLE FORMS[/code]

Project Source Code:

program formdinamis;
{$mode objfpc}{$H+}
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, formmain_u, formdinamisanak_u;
{$R .res}
begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain); // Main Form, harus auto create
//  Application.CreateForm(TfrmAnak, frmAnak); // Form Anak, keluarkan dari AutoCreate
  Application.Run;
end.         

Main Form Source Code :

unit formmain_u;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  StdCtrls;
type
  { TfrmMain }
  TfrmMain = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
var
  frmMain: TfrmMain;
implementation
{$R  .lfm}
uses formdinamisanak_u;
{ TfrmMain }
procedure TfrmMain.Button1Click(Sender: TObject);
begin
  with TfrmAnak.Create(Self) do
  try
    ShowModal;
  except
    Release;
  end;
end;

end.

Form Anak Source (Kosong/ form tanpa apa-apa):

unit formdinamisanak_u;
{$mode objfpc}{$H+}
interface
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
  { TfrmAnak }
  TfrmAnak = class(TForm)
    Panel1: TPanel;
  private
    { private declarations }
  public
    { public declarations }
  end; 
var
  frmAnak: TfrmAnak;
implementation
{$R *.lfm}
end.

Nb : Saya buat pake lazarus.

iya gan SEPERTI ITU SAYA coba juga.. TAPI FORM2 atau form anak2 kalo nampilin/atau mroses QUERY pake dbgrid yang letak/ngambil querynya dari form3 atau anak 3(form3 seperti form2 juga tidak auto create) itu erorr dia gan kayak gini pesannya itu apanya gan :?: :?: