Res...: [delphi-br] Saber qual controle está ativo - TMemmo

2009-01-12 Por tôpico Silvio Clécio
! |Oo° De: Carlos Para: delphi-br@yahoogrupos.com.br Enviadas: Domingo, 11 de Janeiro de 2009 21:09:24 Assunto: Re: Res...: [delphi-br] Saber qual controle está ativo - TMemmo Boa noite meus camaradas!! Realmente a rotina: for I := 0 to ComponentCount - 1 do begin if (Components[

Re: Res...: [delphi-br] Saber qual controle está ativo - TMemmo

2009-01-11 Por tôpico Carlos
Boa noite meus camaradas!! Realmente a rotina: for I := 0 to ComponentCount - 1 do begin if (Components[I] is TMemo) then if (Components[I] as TMemo).Parent.Visible then quase que funciona, mas...sempre existe um mas... Deixe eu explicar melhor, quem sabe assim alguém possa me ajudar melhor, o

Res...: [delphi-br] Saber qual controle está ativo - TMemmo

2009-01-10 Por tôpico Silvio Clecio
--- Em delphi-br@yahoogrupos.com.br, Silvio Clécio escreveu > > Tente isso: > - > procedure TForm1.Button1Click(Sender: TObject); > var > I: Integer; > begin > for I := 0 to ComponentCount - 1 do > begin > if (Components[I] is TMemo) then > if (Co

Re: Res: [delphi-br] Saber qual controle está ativo - TMemmo

2009-01-10 Por tôpico Carlos
Não, é apenas um TMemmo por TabSheet. Saber qual tabSheet está ativa é simples. Eu não sei é fazer referência ao TMemmo que foi criado junto com esta tabSheet e assim ler o conteúdo dele para usar na consulta. Valeu! Carlos

Res: [delphi-br] Saber qual controle está ativo - TMemmo

2009-01-10 Por tôpico Silvio Clécio
Olá pessoal, Tem mais de um Memo na ActivePage? Você pode pegar a ActivePage e usar uma rotina para pegar o (for i := 0 to PageControl1.ActivePage.ControlCount - 1 blá...blá...blá...) ActiveControl (TMemo). Eu acho que dá certo. :) []'s, Silvio Clécio --- Linux