<p><span style="font-weight: bold;">property </span>OnBeforeFormCreate : TBeforeFormNotifyEvent;</p>
<p>&nbsp;</p>
<p>TBeforeFormNotifyEvent = procedure(Sender: TObject; QHS: pQHS; nSubHookID: Integer; pData: Pointer; var CanContinue: Boolean) Of Object;</p>
</td>
</tr>
</table>
</div>
<p>&nbsp;</p>
<p><span style="font-size: 11pt; font-weight: bold;">Remarks</span></p>
<p>&nbsp;</p>
<p style="margin: 0px 0px 0px 24px;">With the variable QHS you receive the pointer to a TQueryHandlerStruct record from the c