Ver Mensaje Individual
  #1  
Antiguo 26-11-2019
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Reputación: 17
look Va camino a la fama
Detectar click en button header

Hola amigos, tengo el siguiente ListView:



para detectar el click en los botones del detalle utilizo:

Código Delphi [-]
procedure TFrmAEProduct.ListViewDetButtonClick(const Sender: TObject; const AItem: TListItem; const AObject: TListItemSimpleControl);
begin

  if AObject.name = 'BTN_ADD' then
  begin
    tmpDet.Edit;
    tmpDet.FieldByName('CANT').AsExtended := tmpDet.FieldByName('CANT').AsExtended + 1;
    tmpDet.Post;
  end;
end;

los botones del detalle los he creado en el modo DynamicApparence, pero en el header utilizo el custom por lo que el boton del header no tiene nombre, asumo "TextButton".

Código Delphi [-]
procedure TFrmAEProduct.ListViewDetButtonClick(const Sender: TObject; const AItem: TListItem; const AObject: TListItemSimpleControl);
begin

  if AObject.name = 'TextButton' then
  begin
    showMessage('it works!');
  end;
end;

los botones del detalle funcionan bien ,pero no logro detectar el click en ese boton del header.

me ayudan??
__________________
all your base are belong to us
Responder Con Cita