mmm kalo langkah saya sih..
1. bila Form belom di create sast desing time.. create lah saat
runtime
aForm:= TForm.create
2. Masukan semua form form itu ke list. (dari Tlist)
inget list ini harus dicreate dulu
var alist: Tlist.
aList:= Tlist.create
memasukan ke dalam list.
aList.add(aForm) ---> nam formnya
sehingga form2 itu dah terdaftar di aList.
3. memangil dari databse.,
FormName := ambil nama form dari database...
misal formName = formsatu
4. mencari di aList.
var
temp_form: Tform
NamaFormDiLoad: TForm -> baiknya di variable global
for i:= 0 to aList.Count -1 do
begin
Temp_form:= aList.items[i]
->> cocokan caption dari form dengan data dari database liat 3
if temp_form.caption = formName then
begin
namaFormDiLoad:= temp_form
end;
end
5. anda telah mendapatkan form yg akan di load yg ditaruh di
NamaFormDiLoad
sorry ... mungkin beberapa gak sesuai ama delphi syntak karena gak
dibuat di
delphi..
tapi jalan.. kok..
untuk lebih jelas bisa japri.. nt saya coba bikinin contoh prognya..
mudahan membantu...
salam
aris s.
ym: bodypack
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
