Evento en BitBtn creado en tiempo de ejecución
 

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

A mi me funciona perfectamente, ¿donde has definido el botón? nBotonClick, ¿los has de hacer dentro del formulario?

Código Delphi [-]
type
  TForm1 = class(TForm)
    ...
    ...
    ...
    procedure nBotonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TForm1.nBotonClick(Sender: TObject);
begin
  ShowMessage('Hola');
end;

Un saludo

Pues lo he definido dentro del componente del stringgrid que es donde se crea el botón. Igual que si lo cambio por el evento OnEnter si funciona, eso es lo que me confunde. (Al Dinio le confunde la noche y a mi el evento OnClick, lo mismo que es. :D)