Arsip: MDI

more 13 years ago
desidian
selamat sore para master delphi ...
mau tanya nih, saya buat form mdi dan child ..
sebelum mdinya muncul saya munculkan form login, kemudian mdi dan setelah mdi maka childnya
pada project optionnya saya ubah main formnya menjadi "form login". ketika dirun maka akan eror ketika memanggil chilnya. namun jika main formnya dibuat form mdinya maka ketika run yang awal nongol itu form mdinya dan form loginnya ngga nongol
mohon pencerahannya para master sekalian bagaimana mengatasi hal tersebut /.......terimakasihhh

more 13 years ago
mas_kofa
1. form login jangan kamu set autocreate
2. kamu ubah di file .dpr nya, untuk menampilkan formLogin
contoh :
program g_Resto;
uses
Forms,
ufrmUtama in 'ufrmUtama.pas' {frmUtama},
ufrmKoneksi in '..\myfunctions\DMySQL\ufrmKoneksi.pas' {frmKoneksi},
ShellAPI,
ufrmGantiPassword in '..\myfunctions\DMySQL\ufrmGantiPassword.pas' {frmGantiPassword},
ufrmDetailSales in 'ufrmDetailSales.pas' {frmDetailSales},
ufrmMasterUser in '..\myfunctions\DMySQL\ufrmMasterUser.pas' {frmMasterUser},
ufrmHakAkses in '..\myfunctions\DMySQL\ufrmHakAkses.pas' {frmHakAkses},
ufrmLookUp in '..\myfunctions\DMySQL\ufrmLookUp.pas' {frmLookUp},
myfunction in '..\myfunctions\core\myfunction.pas',
uMyConfigFile in '..\myfunctions\core\uMyConfigFile.pas',
uMyEncrypt in '..\myfunctions\core\uMyEncrypt.pas',
ufrmMessage in '..\myfunctions\core\ufrmMessage.pas' {frmMyMessage},
ufrmMasterPegawai in 'ufrmMasterPegawai.pas' {frmMasterPegawai},
ufrmCatProduct in 'ufrmCatProduct.pas' {frmCatProduct},
ufrmProduct in 'ufrmProduct.pas' {frmProduct},
ufrmCatService in 'ufrmCatService.pas' {frmCatService},
ufrmTypeService in 'ufrmTypeService.pas' {frmTypeService},
ufrmMasterService in 'ufrmMasterService.pas' {frmMasterService},
ufrmIngredient in 'ufrmIngredient.pas' {frmIngredient},
ufrmMasterTenant in 'ufrmMasterTenant.pas' {frmMasterTenant},
ufrmDefaultMaster in '..\myfunctions\DMySQL\ufrmDefaultMaster.pas' {frmDefaultMaster},
ufrmMasterCustomer in 'ufrmMasterCustomer.pas' {frmMasterCustomer},
ufrmPurchaseOrder in 'ufrmPurchaseOrder.pas' {frmPurchaseOrder},
uComponent in 'uComponent.pas',
ufrmExecDTable in '..\myfunctions\DMySQL\ufrmExecDTable.pas' {frmExecDTable},
ufrmLogin in '..\myfunctions\DMySQL\ufrmLogin.pas' {frmLogin},
ufrmReport in '..\myfunctions\DMySQL\ufrmReport.pas' {frmReport},
ufrmManageSales in 'ufrmManageSales.pas' {frmManageSales},
ufrmPenjualan in 'ufrmPenjualan.pas' {frmPenjualan},
ufrmReportSales in 'ufrmReportSales.pas' {frmReportSales},
ufrmGridProduct in 'ufrmGridProduct.pas' {frmGridProduct},
ufrmPindah in 'ufrmPindah.pas' {frmPindah},
ufrmAbout in '..\myfunctions\core\ufrmAbout.pas' {frmAbout},
ufrmSplit in 'ufrmSplit.pas' {frmSplit},
uMD5 in '..\myfunctions\core\uMD5.pas',
ufrmRegister in '..\myfunctions\core\ufrmRegister.pas' {frmRegister},
ufrmCombine in 'ufrmCombine.pas' {frmCombine},
ufrmChangeLog in 'ufrmChangeLog.pas' {frmChangeLog},
uMyClasses in '..\myfunctions\core\uMyClasses.pas',
ufrmMasterSupplier in 'ufrmMasterSupplier.pas' {frmMasterSupplier},
ufrmSetting in 'ufrmSetting.pas' {frmSetting};
{$R
.RES}
begin
Loged := false;
frmLogin := TfrmLogin.Create(nil);
frmLogin.ShowModal;
if not Loged then exit;
LoadIdentitas;
Application.Initialize;
Application.Title := '..:: Desktop POS Resto and Cafe ::..';
Application.CreateForm(TfrmUtama, frmUtama);
Application.CreateForm(TfrmReport, frmReport);
Application.Run;
end.

more 13 years ago
henry_sys
Benar kata mas_kofa, krn saya juga pernah alami seperti yang mas diskusikan skrg
klu dl saya create Login pada Even Onshow Pada MDIForm dan FmLogin tdk auto Create
bisa juga diubah dari *.dpr atau bisa jg dari project-> Option->Form kemudian FmLogin Di pindah ke kanan (Available Form)

more 13 years ago
desidian
maksudnya diubahnya dimananya ya ?
maaf sebelumnya saya kurang mengerti...:(

more 13 years ago
luckynvic
buka di project -> view source,
form loginnya di create duluan sebelum application.initialize (contoh dari mas_kofa)
atau bisa juga create mdi form nya duluan kemudian form loginnya tapi setelah form login ditambahkan dengan frm_login.showModal() jadi aplikasi bisa ketahan di form login, kemudian perlu kondisi apakah login atau tidak (seperti contoh dr mas_kofa)
:)
more ...
- Pages:
- 1
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- gimana cara nampilin gambar di fast report
by putukaca in Tip n Trik Pemrograman more 17 years ago - Dilema memperkerjakan programmer
by LuriDarmawan in OOT more 16 years ago - TatukGis
by dadanarifin in Multimedia & Graphic Enhancement more 14 years ago - [saran] db server untuk data jumlah besar
by simba in Lain-lain more 17 years ago - Tanya: Aplikasi MDI
by cyber_hecker in Tip n Trik Pemrograman more 20 years ago - Generate even
by delphicode in Tutorial & Community Project more 16 years ago - gimana supaya 0 -> - di fastreport ?
by slamet_linux in Reporting more 17 years ago - mAsALah kCiL mU dTanYaiN LgI ? pLiz BanTu
by jajang in Hal umum tentang Pascal Indonesia more 16 years ago - [HELP] masalah cannot focus form (satu project banyak form)
by binyo in Lain-lain more 13 years ago - [ASK] gimana caranya connect client ke server MySQL
by shindo in Hal umum tentang Pascal Indonesia more 17 years ago