Fórum Como acessar um componente que esta presente em um form criado no JvPageList? #429380

Estou usando o JvPageList para passar o um sistema para TDI.

Segui o exemplo que esta em
https://www.devmedia.com.br/clubedelphi/downloads/Ed_74.htm.

Já funcionou legal, mas estou precisando executar um click em um botão de form
que esta presente no JvPageList. Estou meio perdido.


NovaPagina(TfrmClientes, (Sender as TAction).ImageIndex ); // Criar a nova
pagina utilizando TfrmClientes.
frmClientes.cnrbtnFicha2LimpaAjuste.Click; // Aqui está o problema, não é
executado este comando. Parece que o form não foi criado.


procedure TfrmPrincipal.NovaPagina(ClasseForm: TFormClass; // Nova pagina
IndiceImagem: Integer);
var
Aba : TJvTabBarItem;
Pagina : TJvCustomPage;
Form : TForm;

TotalForms : Integer;

begin

TotalForms := TotalFormsAbertos(ClasseForm);

if TotalForms = 0 then
begin

if not PodeAbrirFormulario(ClasseForm, Pagina) then
begin
JvPageList.ActivePage := Pagina;
Exit;
end;

Aba := JvTabBar.AddTab('');

Pagina := TJvStandardPage.Create(Self);
Pagina.PageList := JvPageList;

Form := ClasseForm.Create(Pagina);
with Form do
begin
Align := alClient;
BorderStyle := bsNone;
Parent := Pagina;
end;

with Aba do
begin
Caption := Form.Caption;
ImageIndex := IndiceImagem;
PopupMenu := Self.PopupMenu;
end;

AjustarCaptionAbas(ClasseForm);

Form.Show;
JvPageList.ActivePage := Pagina;

end
else
begin

// UnitBiblioteca.Mensagem( 'Fom já aberto !!! ', mtWarning, [mbOk], 0 );

for TotalForms := 0 to JvPageList.PageCount - 1 do
if JvPageList.Pages[ TotalForms ].Components[ 0 ].ClassType = ClasseForm
then
JvPageList.ActivePageIndex := TotalForms;

end;
end;