VFI

[MatteoFe]

Ciao a tutti,
nell'applicazione che sto sviluppando, (quasi) tutte le form sono
ereditate dalla mia TFWMatteoFormBase.
Ora vorrei aggiungere a questa la gestione della chiusura della form:

TFWCCanCloseEvent = procedure(Sender: TObject; var ACanClose:
Boolean) of object;
TFWMatteoFormBase = class(TForm)
....
private
....
FOnCanClose :TFWCCanCloseEvent;
public
....
published
....
property OnCanClose :TFWCCanCloseEvent read FOnCanClose write
FOnCanClose;
end;

Ora, come si fa a far comparire l'evento nell'object inspector??
Manca qualcosa?

Matteo

[Giacomo Degli Esposti]

Se non ricordo male devi creare un design time package e mettere nella
procedure Register una chiamata a RegisterCustomModule( TMiaForm );

Per curiosita', come mai non usi l'evento OnCloseQuery per decidere
se la form si puo' chiudere?

ciao
Giacomo

[MatteoFe]

> Per curiosita', come mai non usi l'evento OnCloseQuery per decidere
> se la form si puo' chiudere?

:D
perchè mi piace complicarmi la vita???
No, semplicemente non conoscevo questo evento.

In realtà ho anche un altro evento e qualche proprietà che mi
piacerebbe gestire direttamente da object inspector.
Però non mi è chiara una cosa, generando il design time package la
form la utilizzo sempre dal repository?

Grazie per la risposta,
Matteo

[Giacomo Degli Esposti]

MatteoFe wrote:
>> Per curiosita', come mai non usi l'evento OnCloseQuery per decidere
>> se la form si puo' chiudere?
>
> :D
> perchè mi piace complicarmi la vita???
> No, semplicemente non conoscevo questo evento.

Capita. :)

> In realtà ho anche un altro evento e qualche proprietà che mi
> piacerebbe gestire direttamente da object inspector.
> Però non mi è chiara una cosa, generando il design time package la
> form la utilizzo sempre dal repository?

Non ho delphi sottomano adesso per controllare, ma direi che dopo la
crei da File|New|Other...

ciao
Giacomo

[MatteoFe]

Ok, lo ammetto, era meglio che mi facevo i cavoli miei!
Però l'ho fatto...
Ho creato il design time package e ci ho infilato dentro le mie form
base, quelle che tutta l'applicazione eredita.
Faccio il build e poi installo il package, tutto ok.
Vado sull'applicazione e la prima cosa che compare è l'errore:
"Ancestor component not found"
vabbè, forse il fatto che l'ho spostato nel package per delphi lo
rende diverso.
Clicco su "create component as new on the descendent", l'altra opzione
mi propone di cancellare, non mi sembra proprio il caso...

Ok, provo a compilare.
"file not found proxies.dcu", il file è usato dalla unit
DesignEditors, chiamata dal mio package.
Ma come? Prima lo avevo compilato e andava bene e ora no?? Boh.
La cosa bella è che il file proxies non esiste da nessuna parte!

Mi sa che non capisco qualche cosa!! Ma se mi tenevo la semplice VFI
senza package non era meglio???

Qualcuno ha qualcosa da consigliarmi? (A parte cambiare mestiere!!)

Matteo