Now Application is the owner of my forms:
CustomersForm:=TCustomersForm.Create(Self) has become
CustomersForm:=TCustomersForm.Create(Application)

but now I get an AV, when I close my app.
Any ideas ?

Guido

guido.klapperich@... wrote:

> Thanks Markus, that's exactly, what I have been looking for. But only my MainForm
> has the owner Application, I thought every form has this owner ?
>
> Guido
>
> Markus Ostenried wrote:
>
> > Hi Guido !
> >
> > If your DataModules all have the Owner "Application" you can do something like:
> >
> > function FindQuery( AName: String ): TIB_Query;
> > var
> > p, i, j : Integer;
> > sDataModule, sQuery: String;
> > DM : TDataModule;
> > begin
> > Result := nil;
> > p := Pos( '.', AName );
> > if (p = 0) then Exit;
> > sDataModule := Copy( AName, 1, p-1 );
> > Delete( AName, 1, p );
> > sQuery := AName;
> > for i := 0 to Application.ComponentCount-1 do begin
> > if (Application.Components[i].Name = sDataModule) then begin
> > DM := (Application.Components[i] as TDataModule);
> > for j := 0 to DM.ComponentCount-1 do begin
> > if (DM.Components[i].Name = sQuery) then begin
> > Result := (DM.Components[i] as TIB_Query);
> > Break;
> > end; // if Com.Name = sQuery
> > end; // for j
> > end; // if Com.Name = sDataModule
> > end; // for i
> > end;
> >
> > not tested - just coded....
> >
> > HTH,
> > Markus
> >
> > At 23:14 08.04.2001 +0200, you wrote:
> > >I have a string 'CustomersDataModule.CSQuery' and I want to convert this
> > >string to a IB_Query.
> > >I want something like that:
> > >
> > >var Query; TIB_Query;
> > >begin
> > > Query:=Convert('CustomersDataModule.CSQuery');
> > > Query.Open;
> > >end;
> > >
> > >Is this possible ?
> > >
> > >
> > >Guido.
> >
> >
> >
> >
> > Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/