evento OnClick de un TRichEdit

[aranel]

Muchas gracias!! lo vamos a intentar ahora mismo, a ver si con eso conseguimos hacerlo, y esperemso que no nos haga cosas demasiado raras.

[dec]

Hola,

Para que quede un tanto más claro, ahí va el código "completo" de la unidad de un formulario en que se usa un "TRichEdit" normal, corriente y moliente, pero, que, gracias a la "superposición de clases", contará también con una propiedad/evento "OnClick":

Código Delphi [-]
unit Unit1;

interface

uses
  Forms, Classes, Controls,
  StdCtrls, ComCtrls, Dialogs;

type
  TRichEdit = class(ComCtrls.TRichEdit)
  published
    property OnClick;
  end;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
  private
    procedure RichEditClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  RichEdit1.OnClick := RichEditClick;
end;

procedure TForm1.RichEditClick(Sender: TObject);
begin
  ShowMessage('¡RichEditClick!');
end;

end.

[aranel]

Muchas gracias por todo, pero al final publiqué la propiedad OnClick, pero me di cuenta de que también necesitaba la propiedad OnDblClick, y la publiqué también, pero entonces empezó a darme errores el programa, pero errores en sitios incomprensibles, como al asignarle un 3 a una variable, cosas que antes funcionaban correctamente. E incluso deshacía los cambios y volvía a ponerlo todo como antes, y seguia dandome esos errores que en principio no tenía porque darmelos. Y para que todo volviera a funcionar otra vez como al principio tenia que reiniciar el ordenador.

Entonces pensé que llevabas razón, que si TRichEdit protege esa propiedad por algo será. Entonces al final lo he solucionado utilizando un TMemo, que aunque no me deja poner una línea determinada de un color (por ejemplo, rojo) si que implementa la propiedad OnClick.