TSelectOnRunTime ACCESS VIOLATION DELPHI7

[tuxtlagacse]

AL COMPILAR Y EJECUTAR EL COMPONENTE TSelectOnRunTime de neftali, genera un access violation en
procedure TFormCrear.WMWindowPosChanging(
var Message: TWMWindowPosChanging);
begin

inherited;

if (Self.ComponentState <> []) then begin
Exit;
end;

// Posicionar las barras
FormTools.Top := Self.Top - FormTools.Height;// aqui da el error
FormTools.Left := Self.Left;

end;

ALGUIEN PUEDE AYUDARME?

[Neftali [Germán.Estévez]]

Por lo que comentas, no es un error del componente, sino de unos de los ejempos que lo acompaña.
En concreto el que simula un diseñador de formularios.

Piensa que son simples ejemplos, sirven de ayuda, pero no son aplicaciones testeadas.
A mi me compila perfectamente, de todas formas, pienso que puede ser problema de que el formulario FormTools que aparece en esa línea no esté creado.

¿Lo has ejecutado paso a paso? ¿Qué vale FormTools en ese punto?
¿Puede ser que hayas eliminado ese formulario del AutoCreate?

De todas formas no estaría de más una comprobación de este estilo:


...

// Asignado?
if Assigned(FormTools) then begin
// Posicionar las barras
FormTools.Top := Self.Top - FormTools.Height; // aqui da el error
FormTools.Left := Self.Left;
end;