Declarar evento OnExit en StringGrid
 

Hola a tod@s.

Sigo con mi StringGrid tuneado.

Tengo creado un componente no visual heredado del StringGrid y necesitaría declarar y poder manejar un evento para cuando pierda el foco, o sea, el OnExit.

¿Alguien me puede decir cómo hacerlo?

Gracias y un saludo

Un par de dudas:
Si asignas el evento de forma tradicional, ¿no funciona?.

[broma]
Cuando dices que el componente no es visual, ¿exactamente a qué te refieres?, porque si no se ve, entonces cómo vas a salir de él, si tampoco puedes entrar :D
[/broma]

A ver si nos dejamos de bromas que (a falta de conocimientos) aquí el de las bromas soy yo. :p

No hagáis sangre conmigo en este tema porque mis conocimientos sobre creación de componentes son algo menos que ningunos. :o

Cuando digo que no es visual me refiero a que el componente está creado en una unidad sin form, aunque estoy pensando que igual es una tontería y todos los componentes se crean así. El tema es que necesito desde dentro del componente saber cuando pierde el foco para poner invisible un botón que creo en tiempo de ejecución y no tengo ni idea de como hacerlo.

Saludos

Y pregunto, si ese componente está heredado de un TStringGrid, según he entendido, entonces tendrá su evento OnExit, ¿no es así?

Pues imagino pero yo no lo veo por ningún sitio. Yo lo pondría aquí pero no sé si es adecuado, tiene casi 5000 lineas.

Hombre, en todo caso subes el ficherito comprimido :)
¿5000 líneas el stringgrid heredado?, pues sí que está modificado :confused:
Si haces una búsqueda por "onexit" en el código del componente, ¿no está?. Y si está, ¿en qué sección?, private, public, etc.



Tengo que salir, vuelvo en un rato :)

Pos bueno, aquí lo llevas. Quiero recordar que te lo envié en alguna ocasión para algo que preguntaste sobre un evento.

Si eres tan amable le echas un vistazo y me dices algo.

Gracias y un saludo

Ya recuerdo al 'pequeñito', sí, bueno, me parece que tiene un evento exit, se llama CMExit

Código Delphi [-]
procedure TNTStringGrid.CMExit(var Message: TCMExit);
begin
  Boton.Visible := False;
  if Assigned(InplaceEditor) then begin
    if InplaceEditor.Visible then begin
      InplaceEditor.Perform(WM_KEYDOWN, VK_ESCAPE, 0);
    end;
  end;

  SendMessage(Handle, SG_SALGOFILA, Row, 0);
  inherited;
end;

¿Puede ser?, ¿o sirve para salir de alguna celda?

Pues llevas más razón que un santo, lo que me ha despistado es que el puñetero botón que precisamente pongo invisible en ese evento me lo encuentro posteriormente visible y es porque pasa por una de las funciones que lo vuelve a poner visible.

Seguiré mirando a ver cómo lo hago.

Gracias amigo, y un saludo.