TMemo y menu

[Peri]

Quería saber si con un TMeno se puede controlar lo que se señale con el ratón, para que de esta forma, activar una opción en el menú que por defecto está desactivada. Es decir, cuando señale algo con el ratón y teclado -para copiar, pegar, etc...- , pues activar un elemento del menú.

LO consigo hacer con un TRichEdit mediante el evento OnSelectionchange, pero no con un TMemo puesto que no tiene este evento.
Gracias

[dec]

Hola,

Lo más sencillo puede ser usar acciones, o sea un componente "TActionList", al que podríamos añadir una acción, por ejemplo, que se "habilitara" y "deshabilitara" en función de si hay texto seleccionado en el "TMemo". Para esto, entre otras cosas, son muy útiles las acciones.

De este modo, si asignamos una acción a un determinado "item" del menú, podríamos aprovechar el evento "OnUpdate" de la acción para codificar algo similar a esto, donde "sampleAct" es un "TAction" y "mSample" es el "TMemo":

Código Delphi [-]
procedure TfrmMain.sampleAccUpdate(Sender: TObject);
begin
  sampleAct.Enabled := (mSample.SelLength > 0);
end;

Recuerda que si una acción se deshabilita, el "item" del menú que tiene asignada dicha acción, también se deshabilitará, automáticamente, sin que tengas que hacer nada. Adjunto un sencillo ejemplo que muestra esto de que hablo y creo que se aproxima a lo que necesitas, al menos tal como yo lo he entendido.

[Peri]

Muchas gracias dec, probaré lo que dices. Efectivamente TACtionList te evita el trabajo repetitivo cuando una misma acción está en varios sitios, pero aún no he trabajo con este componente, aún no lo conozco. Me meteré en ello y veré.

Gracias dec.

[Peri]

Ya he probado hacer lo que decías, dec. Funciona perfectamente. Y lo he adaptado a mi ejemplo que estaba haciendo, trataba de emular lo que hacía el menú edición del bloc de notas, y lo he conseguido. Delphi mola...

Gracias dec.