Arsip: MDI
more 14 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 14 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 14 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 14 years ago
desidian
maksudnya diubahnya dimananya ya ?
maaf sebelumnya saya kurang mengerti...:(
more 14 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 5 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 6 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 13 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 13 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 13 years ago
Random Topic
- tanyaaa Barcode absensi,,biar absen ga double??
by antrouzz in Hal umum tentang Pascal Indonesia more 17 years ago - Buka laci cash register dengan Delphi
by wati in Hal umum tentang Pascal Indonesia more 15 years ago - nanya dapetin teks di cell DBGrid yang diklik
by b3g1n312 in MsSQL more 18 years ago - Membuat aplikasi database multi tier
by utuhhirang in Network, Files, I/O & System more 17 years ago - Kursus delphi OOP di jakarta
by belajaraja in Tutorial & Community Project more 16 years ago - Menjumlah nilai suatu field setiap group pada QReport
by umarbakri in Hal umum tentang Pascal Indonesia more 19 years ago - Inherited di FastReport...
by reminder2k1 in Reporting more 18 years ago - Cara menambahkan komponent edit
by de27de in Hal umum tentang Pascal Indonesia more 16 years ago - Where yang meliputi stu column,.
by sudrun in Lain-lain more 17 years ago - bagaimana cara reset tanpa menutup aplikasi ???
by trisfani in Hal umum tentang Pascal Indonesia more 15 years ago