! |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[
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
--- 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
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
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
5 matches
Mail list logo