Acessando Componente em um Tabsheet

Question

Estou criando um programa que cria v�rios Tabs dinnamicamente, pois n�o sei quantas tabs ser�o necess�rias. Cada TabSheet, que est�o dentro de um PageControl, possui um Edit. Eu criei um frame e coloq...

Altingon · Answer

Eu fiz o codigo abaixo para quando o usuario teclar F5 e o componente for do tipo data ele joga a data atual, a l�gica seria +- essa...adapte para vc..

 
for i:=0 to Screen.ActiveForm.ComponentCount-1 do
  if Screen.ActiveForm.Components[i] is TJVDateEdit then
    begin
        if (Screen.ActiveForm.Components[i] as  TJVDateEdit).Focused = true then
         (Screen.ActiveForm.Components[i] as TJVDateEdit).Date := now;
    end;

O segredo � perguntar se o componente � do tipo texto....

Renatorm · Answer

Muito obrigado, funcionou direitinho aqui. S� para complementar meu c�digo ficou assim:

if (PageControl1.ActivePage.Components[0].Components[0] is TEdit) then
  Showmessage(PageControl1.ActivePage.Components[0].Components[0] as TEdit).Text);

Fiz esse c�digo ai s� para ver se estava pegando o valor do campo certo. Muito Obrigado [b:0e3d372f2a]altingon[/b:0e3d372f2a]!