<!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>