Nao. Se não mudaria o parent e runtime né? To ligado.
------------------------------------------------------------------------
*Adriano Santos*
Ezequiel respondeu:
>
> Voce esta criando o DBMemo em runtime?
>
> Adriano Santos - Direção de Arte escreveu:
> >
> >
> > Pior que não cara, eu fiz isso a principio e retornou o frmMat001, meu
> > form e não o DBGrid.
> > É fogo, posso ter o DBMemo no form e no DBGrid ao mesmo tempo e ambos
> > tem que se comportar diferentes.
> >
> > Eu preciso fazer isso dinamicamente pq são em todos os forms que tem
> > estas características.
> >
> > ----------------------------------------------------------
> > *Adriano Santos*
> >
> > Ezequiel respondeu:
> > >
> > > Para saber o "dono" (ou pai) do componente, utilize a propriedade
> Parent
> > > do mesmo.
> > > No seu codigo, por exemplo poderia ficar assim:
> > >
> > > if (components[i].parent <> nil) and (components[i].parent.name =
> > > 'dbCtrlGrid1') then .....
> > >
> > > []'s
> > > Ezequiel
> > >
> > > Adriano Santos - Direção de Arte escreveu:
> > > >
> > > >
> > > > Pessoal,
> > > >
> > > > To me matando aqui e não consigo saber qual o "dono" do componente
> > > num form.
> > > > É o seguinte: tenho um TDBMemo dentro de um TDBControlGrid. Em
> runtime
> > > > preciso mudar uma propriedade do TDBMemo, mas só se ele estiver
> dentro
> > > > de um TDBControlGrid. Não consigo saber isso se liga:
> > > >
> > > > {Ainda em testes. TCustomMemo}
> > > >
> > > > for I := 0 to Screen.ActiveForm.ComponentCount-1 do
> > > > begin
> > > > if (Components[I] is TCustomMemo) and
> > > > (NAO_ESTIVER_DENTRO_DO_DBCONTROLGRID) then
> > > > //Faça tal coisa
> > > > else
> > > > //Faça outra coisa
> > > > end;
> > > >
> > > > Vlw
> > > > --
> > > >
> > > > ----------------------------------------------------------
> > > > *Adriano Santos*
> > > >
> > > >
> > >
> > >
> > > ----------------------------------------------------------
> > >
> > > No virus found in this incoming message.
> > > Checked by AVG Free Edition.
> > > Version: 7.5.446 / Virus Database: 268.18.7/713 - Release Date:
> > 7/3/2007 09:24
> > >
> >
> >
>
>
> ------------------------------------------------------------------------
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.446 / Virus Database: 268.18.7/713 - Release Date: 7/3/2007 09:24
>
