Explico, tenho o FModelo1 que tem varias funções padrão, dentre elas tenho a criação do evento OnCellClick de um DBGrid que é herdada para todos os formularios criados a partir do FModelo1, funciona beleza, agora preciso por exemplo que o FClientes que é herdado do FModelo1 tenha além da herança do evento OnCellClick do FModelo1 o seu proprio evento CellClick adicionado quando clicado.
Isso não esta ocorrendo porque o evento está sendo substituido pelo evento do FModelo1
Vou tentar colocar parte do código:
No OnShow do FModelo1 eu faço varias verificações uma delas é se exite DBGrid no Form, encontrando um DBGrid eu substituo alguns eventos dentre eles o CellClick como abixo:
...
TDBGrid(Components[i]).OnCellClick := DBGridCellClick;
...
DBGridCellClick é uma Procedure com uma rotinha padrão para todos os forms:
procedure TFmodelo1.DBGridCellClick(Column: TColumn);
begin
if Column.PickList.Count > 0 then
begin
keybd_event(VK_F2, 0, 0, 0);
keybd_event(VK_F2, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_MENU, 0, 0, 0);
keybd_event(VK_DOWN, 0, 0, 0);
keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
end;
end;
La no FClientes tem seu proprio CellClick com sua rotina em particular, eu consigo anular no OnShow a procedure do FModelo1 com a linha:
JvDBUltimGridClientes.OnCellClick := JvDBUltimGridClientesCellClick;
Porem eu queria a grosso modo que fosse algo assim:
DBGridClientes.OnCellClick := DBGridCellClick + DBGridClientesCellClick;
Ou seja ele pegaria os eventos do FModelo1 + FClientes