Foros Club Delphi - Ver Mensaje Individual - Pasar Mouse sobre una columna(x) del TStringGrid y cambiar el cursor

Cristhor1982 · #4 07-02-2013

Código Delphi [-]procedure TFR_MailBodegas.SGMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
Col, Row: Integer;
begin
SG.MouseToCell(X, Y, Col, Row);
      if (row<>0) and (col=3) then
        Screen.Cursor :=crHandPoint
      else
        screen.cursor:=crdefault;
end;

Con este codigo basto!!!...muchas gracias!!...Mousetocell

Graciiiiiassss!!