Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Fila y columna de un DBgrid (https://www.clubdelphi.com/foros/showthread.php?t=83258)

Parsec 27-05-2013 18:53:48

Fila y columna de un DBgrid
 
Hola,

Estoy dándole vueltas y me he atascado:

si un usuario hace clic en una celda de un DBgrid, necesito saber la fila y la columna que ocupa en el Dbgrid.

saludos

ecfisa 27-05-2013 19:15:13

Hola Parsec.

Código Delphi [-]
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  mp: TPoint;
  gc: TGridCoord;
begin
  with Column.Grid do
  begin
    mp := ScreenToClient(Mouse.CursorPos);
    gc := MouseCoord(mp.X, mp.Y);
  end;
  Caption := Format('Col:%d, Fil:%d',[gc.X, gc.Y]);
end;

Saludos. :)

Parsec 27-05-2013 19:27:32

Hola Ecfisa,

GENIAL!!, muchas gracias.

Saludos

Parsec 27-05-2013 20:27:19

Hola Ecfisa,

Y para capturar la celda según el cursor y no del mouse?

Saludos

ecfisa 28-05-2013 19:07:42

Hola Parsec.

Podes hacer:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TStringGrid(DBGrid1) do
    ShowMessage(Format('Col:%d, Fil:%d',[Col, Row]));
end;

Saludos :)

Parsec 29-05-2013 12:57:53

Ecfisa eres un monstruo!!!!, muchas gracias señor.

Saludos.


La franja horaria es GMT +2. Ahora son las 13:50:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi