Mohon maaf,
> FormXXX: TForm, bukan
> FormXXX: TFormXXX)
bagian manakah yg diganti tsb ? sepertinya saya sudah pakai "Form : TForm" , bahkan
sudah saya coba juga pakai TCustomForm (Atasnya lagi).
function TfrmMain.FormAuthority( cls : TComponentClass; Form : TForm; isModal :
boolean):boolean;
begin
if not Assigned(form) then
begin
application.createForm(cls, form);
end;
//coding lain untuk memunculkan formnya disini
end;
----- Original Message -----
From: Mpu Gondrong
To: Yosi
Sent: Tuesday, September 02, 2003 4:24 PM
Subject: Re: [Delphindo] Masalah paramaeter tidak sama
Selasa, 02/09/03 14:49:43, Yosi menulis:
Y> function TfrmMain.FormAuthority( cls : TComponentClass; var Form :
Y> TForm; isModal : boolean):boolean;
Y> "Type of formal and VAr parameter must be identical"
Misalnya kita buat: 'function XX(T: TObject): Boolean', maka fungsi
tsb bisa diisi object apapun (turunan dari tobject), tapi bila dibuat
var maka harus tipe yg indentik.
Jadi untuk kasus anda, gunakan class induknya (FormXXX: TForm, bukan
FormXXX: TFormXXX), dan gunakan operator as (FormXXX as TFormXXX).
Yahoo! Groups Sponsor
ADVERTISEMENT
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
[Non-text portions of this message have been removed]
------------------------ 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/l.m7sD/LIdGAA/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/
