Usar eventos en un VCL

[marto]

Empezado por cadetill

mmmm, Marto, perdona, pero..... de esta manera creo que no saltará el evento si no lo tiene asociado en el componente, no?

Copia y pega el código, lo pruebas y luego me cuentas

[marto]

Una pista...

Código Delphi [-]
procedure TCustomRichEdit.SelectionChange;
begin
  if Assigned(OnSelectionChange) then OnSelectionChange(Self);
end;

Esa es la implementación del método en TCustomEdit.
El método se llama al capturar el mensaje correspondiente de windows:

Código Delphi [-]
procedure TCustomRichEdit.CNNotify(var Message: TWMNotify);
begin
  with Message do
    case NMHdr^.code of
      EN_SELCHANGE: SelectionChange;
      EN_REQUESTRESIZE: RequestSize(PReqSize(NMHdr)^.rc);
      EN_SAVECLIPBOARD:
        with PENSaveClipboard(NMHdr)^ do
          if not SaveClipboard(cObjectCount, cch) then Result := 1;
      EN_PROTECTED:
        with PENProtected(NMHdr)^.chrg do
          if not ProtectChange(cpMin, cpMax) then Result := 1;
    end;
end;

[__cadetill]

Empezado por marto

Copia y pega el código, lo pruebas y luego me cuentas

pues sí, pues sí, funciona, y yo complicándome la vida!!!!