Ver Mensaje Individual
  #3  
Antiguo 24-10-2017
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.275
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por kratos1981 Ver Mensaje
...
procedure TMainForm.ShowButtons(Sender: TObject);
...
procedure TForm.CheckBox1.Click(Sender: TObject);
Si creas un nuevo formulario verás que la estructura que se crea en el .PAS asociado es la siguiente:

Código Delphi [-]
type
  TForm2 = class(TForm)
    procedure FormClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
    procedure ShowButtons();
  public
    { Public declarations }
    procedure Publica(Sender: TObject);
  end;

Los dos primeros procedimientos son eventos y su implementación es similar a la siguiente; Fíjate que están en la zona antes de la definicción private.

Código Delphi [-]
procedure TForm2.FormClick(Sender: TObject);
begin
   ...
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  ...
end;

Los 2 segundos definidos en la parte private y public son procedimientos definidos (no eventos) cuya implementación es la siguiente:

Código Delphi [-]

procedure TForm2.Publica(Sender: TObject);
begin
  ...
end;

procedure TForm2.ShowButtons;
begin
  ...
end;

Los eventos se diferencias en que están "ligados" a algún componente visual.

En el código que has puesto, y los elementos marcados en rojo veo como cosas raras:
(1) Que unos hacen referencia a TMainForm y otros aTForm (seguramente por copiar y pegar)
(2) Que el procedimiento que te falla, deberá estar definido en la parte privada/public del formulario o en la zona anterior si es un evento.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita