Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 03-12-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 17
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Eso es porque la variable PageControl1 que tenes declarada "no es quien tu crees que es"

Estas referenciando a un TPageControl que ni siquiera fue creado; no es el PageControl de tu formulario

Tenes dos alternativas:

1. Recorrer los controles del form, y buscar el PageControl

Código Delphi [-]
// se podria extender pasando como parametro el nombre...
// esta funcion te retorna el primero que encuentra
function TBaseForm.FindPageControl: TPageControl;
var
  I: Integer;
begin
  for I := 0 to ControlCount - 1 do
  begin
    if Controls[i] is TPageControl then
      Exit(Controls[i] as TPageControl);
  end;

  raise Exception.Create('PageControl no encontrado');
end;

2. Tener el PageControl como parametro

Código Delphi [-]
procedure TBaseForm.MostrarEdit(AEdit: TEdit ; APageControl: TPageControl; NameSheet: TTabSheet);
begin
  APageControl.ActivePage := NameSheet;
  AEdit.SetFocus;
end;

No tengo Delphi a mano ahora, pero si mal no recuerdo, los TTabSheet tienen en algun lado una referencia al PageControl; si no es explicito (propiedad de tipo TPageControl) deberia poder obtenerse haciendo:

Código Delphi [-]
  APageControl := NameSheet.Parent as TPageControl;

Por otro lado, porque tenes llamadas al procedimiento Abort? Sabes para que sirve eso?
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Manipular TEdit de un Form desde una Unit scigliano Varios 3 01-12-2015 21:38:55
Redefinir procedure OnShow en form heredado. Walterio OOP 3 11-09-2012 17:46:25
Problemas al manipular form reivaj_bo Varios 1 16-11-2009 16:28:35
Como puedo abrir un form en un PageControl marcoev OOP 7 05-09-2008 18:41:38
¿se puede manipular el componente PageControl? Nelly Varios 3 06-01-2006 19:51:15


La franja horaria es GMT +2. Ahora son las 05:04:27.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi