Evento onclick en Dbctrlgrid

[Choclito]

Buenas tardes amigos del foro, comentarles que estoy haciendo un sistema de un restaurante, en una ventana tengo que hacer el registro de las ventas, para eso puse un dbcrtlgrid y en el un timage y un label para que muestre la imagen y el texto del producto (con la ayuda del foro).
Mi pregunta es: que cuando se haga un click o doble click en una de las celdas del dbctrlgrid capture el codigo registrado en un label y pueda mostrar una ventana para registrar la cantidad del producto y guardar en una tabla, en resumen quisiera trabajar con el evento on click del dbctrlgrid pero no tiene dicho evento, ademas tendria que trabajar sobre el texto del componente
Trabajo con firebird , delphi 7 y mdo

[Casimiro Notevi]

Empezado por Choclito

.. quisiera trabajar con el evento on click del dbctrlgrid pero no tiene dicho evento..

¿Y eso?, ¿cómo es que no tiene el evento onclick?

[ecfisa]

Hola Choclito.

En realidad el TDBCtrlGrid si posee el evento OnClick:



Y si en lugar de usar un TLabel usaras un TDBText, es una operación muy simple.

Por ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  DBCtrlGrid1.DataSource := DataSource1;
  DBText1.DataSource     := DataSource1;
  DBText1.DataField      := 'NOMBRE_DE_TU_CAMPO';
end;

procedure TForm1.DBCtrlGrid1Click(Sender: TObject);
begin
  ShowMessage(DBText1.Caption);
end;

Saludos.