delphi: mover entre las celdas de la cuadrícula

Question

¿Cómo puedo moverme entre las celdas de una cuadrícula en Delphi por tabulación o las teclas de flecha? Como saben, una cuadrícula de cadena en delphi tiene solo un orden de tabulación, pero necesito moverme entre las celdas mediante las teclas de flecha o la pestaña para ser más cómodo y fácil de usar.

He intentado utilizar un evento KeyPress, pero este evento sólo sabe caracteres y no sabe como teclas de control de ficha y ...

Answer 1

StringGrid.Options := StringGrid.Options + [goEditing, goTabs]; 

o conjunto de este tiempo de diseño.

Ahora puede pasar de una celda a otra con las pestañas y las teclas de flecha. Si realmente está editando una celda, primero debe soltar el foco si quiere moverse a la celda hacia la izquierda o hacia la derecha. En ese caso, use la pestaña (shift).

Answer 2

{ This handles arrow left and right in the GRID 
} 
procedure TJournalForm.JournalGridKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); 

begin 
    if (JournalGrid.EditorMode = True) then  // if arrowing while editing… 
     begin 
      if Key=VK_Left then if JournalGrid.Col>(JournalGrid.FixedCols+1) then JournalGrid.Col:=JournalGrid.Col-1; 
     if Key=VK_Right then if JournalGrid.Col<(JournalGrid.ColCount-1) then JournalGrid.Col:=JournalGrid.Col+1; 
    end; 
end;