var GRect : TGridRect; begin GRect.Left := 4; // Première colonne selectionner GRect.Top := 1; // Première Ligne selectionner GRect.Right := 4; // Dernière colonne selectionner GRect.Bottom := 1; // Dernière Ligne selectionner StringGrid.Selection := GRect;
StringGrid.SetFocus; PostMessage(StringGrid.Handle,WM_KEYDOWN,VK_F2,0);
procedure TWndMain.StringGridKeyPress(Sender: TObject; var key: Char); begin if StringGrid.Selection.left > 3 then Key := #0; end;
procedure TWndMain.StringGridKeyPress(Sender: TObject; var key: Char); begin // Ce qui est en rouge te permet de filtrer l'appuie des touches si tu es sur une ligne infèrieur à la derniere. if (StringGrid.Selection.left > 3) and (StringGrid.Selection.Top < StringGrid.RowCount - 1) then Key : = #0; end;
procedure TWndMain.StringGridKeyPress(Sender: TObject; var key: Char); begin // Ce qui est en rouge te permet de filtrer l'appuie des touches si tu es sur une ligne infèrieur à la derniere. if (StringGrid.Selection.left > 3) and (StringGrid.Selection.Top < StringGrid.RowCount - 1) then StringGrid.EditorMode := False else StringGrid.EditorMode := True; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question