Pequeño error con delphi

[[Al González]]

¡Hola!

Buscando con la opción Find in files de Delphi 7, encontré que ese mensaje es el valor de la constante SNoPropertyPageAvailable, usada en la unidad OCXReg.pas:

Código Delphi [-]
procedure TOleControlEditor.DoVerb(Verb: Integer);
begin
  try
    if Verb = -65536 then
      TOleControl(Component).ShowAboutBox
    else
      TOleControl(Component).DoObjectVerb(Verb);
  except
    case Verb of
      -65536: raise Exception.CreateRes(@SNoAboutBoxAvailable);
      OLEIVERB_PROPERTIES: raise Exception.CreateRes(@SNoPropertyPageAvailable);
    else
      raise;
    end;
  end;
end;

También a mí me aparece cuando doy doble clic sobre el componente. Supongo que es normal que se eleve esa excepción cuando no hay un cuadro de diálogo de propiedades qué mostrar.

Empezado por Winsock

cuando hago doble click para ver el codigo

Si con esto te refieres a escribir código para los eventos del componente, en lugar de hacer doble clic, selecciónalo y presiona la tecla Enter (o la clásica e incómoda F11 ).

Con esto aparecerá el inspector de objetos, en el cual encontrarás la pestaña Events con la lista de todos los eventos en los cuales podrás ver y escribir tu código.

Espero te sirva. Esperamos tus comentarios.

Al González.