Hola a tod@s.
Tengo creado un componente no visual heredado de un TStringGrid el cual estoy modificando para poder en determinadas columnas insertar un campo memo.
Para esto, cuando la columna cumple la condición adecuada, tengo un BitBtn creado que pongo visible y lo coloco ajustado a la derecha de la columna para que se pueda picar con el ratón para abrir una ventana y poder introducir el texto del campo memo.
Todo esto funciona bien, el problema es que al crear el BitBtn asigno el evento OnClick pero cuando ejecuto el programa pico en el botón y no me hace caso, sin embargo si lo asigno en el evento OnEnter si lo ejecuta. ¿Alguien me puede decir por qué no me hace caso en el evento OnClick?
El botón lo creo de la siguiente forma:
Código Delphi
[-]
Boton:=TBitbtn.Create(Self);
Boton.Caption := '...';
Boton.Parent := Self;
Boton.Visible := False;
Boton.Width := 17;
Boton.OnClick := nBotonClick;
y tengo creado el siguiente procedimiento:
Código Delphi
[-]
procedure TNTStringGrid.nBotonClick(Sender: TObject);
begin
Showmessage('hola');
end;
Gracias y un saludo