<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#ffffff" text="#000000">
    El 21/02/2013 12:44 p.m., José Mejuto escribió:
    <blockquote cite="mid:512632DB.5080806@gmail.com" type="cite">El
      21/02/2013 14:29, Paola Bruccoleri escribió:
      <br>
      <br>
      <blockquote type="cite">Hola José..
        <br>
        está buena la idea..veré de implementarla..
        <br>
        por curiosidad...
        <br>
        para qué es esto?
        <br>
           {$PUSH}
        <br>
           {$OBJECTCHECKS OFF}
        <br>
           HF:=THackForm(aForm);
        <br>
           {$POP}
        <br>
        <br>
      </blockquote>
      <br>
      THackForm y aForm no comparten la misma linea de herencia así que
      el compilador nos dará un warning (o error si tenemos activado la
      verificación de call) del tipo "aForm and THackForm are not
      related objects". Desconectando la comprobación de ese error nos
      evita el warning.
      <br>
      <br>
      No estoy seguro 100% pero no debería ser un problema en este caso.
      <br>
      <br>
    </blockquote>
    Hola José..<br>
    entonces no capté algo. Tu me pones esto, de lo que deduzco que es
    un form nuevo que le llamo HackForm... y veo que es una clase q
    desciende de TForm.<br>
    No me queda claro qué significa en el .pas lo que te marqué en rojo,
    ya que en la def. de la unidad, no veo q esa directiva se haya
    creado por defecto..<br>
    Bueno, muchas gracias!<br>
    <br>
    <br>
      <font color="#ff0000">{ HackForm }
    </font><br>
    <br>
      THackForm=class(TForm)
    <br>
      public
    <br>
        function FindNextControl(CurrentControl: TWinControl; GoForward,
    CheckTabStop, CheckParent: Boolean): TWinControl;
    <br>
      end;
    <br>
    <br>
    <font color="#ff0000">{ HackForm }
    </font><br>
    <br>
    function THackForm.FindNextControl(CurrentControl: TWinControl;
    GoForward,
    <br>
    <br>
      CheckTabStop, CheckParent: Boolean): TWinControl;
    <br>
    begin
    <br>
      Result:=inherited FindNextControl(CurrentControl, GoForward,
    CheckTabStop, CheckParent);
    <br>
    end;
    <br>
    <br>
    <br>
    <br>
  </body>
</html>