Discussion :

[chekkal]

Bonjour à tous,

j'ai un dbgrid que j'utilise pour la reception des données
et je voudrais q'u a chaque validation d'un enregistrement le curseur se positionne en bas comme on peut le faire avec la touche (key=40), mais je veut le faire automatique.
en claire comment donner un ordre au clavier sans l'appui sur une touche

merci à tous

[Paul TOTH]

qu'est-ce que tu appelles "en bas" ? la DBGrid possède un enregistrement courant, n'est pas plutôt ça que tu veux changer ?

[Gilbert Geyer]

Bonjour,

je voudrais qu'à chaque validation d'un enregistrement le curseur se positionne en bas ... automatiquement

Voici comment je déplace le curseur sur l'un des items de mon MainMenu1 lors d'un MouseUp sur un TRadioButton :
Comme p.X := 400; p.y:=-5 sont les coordonnées locales de l'item celui-ci se déploie automatiquement mais si je remplace les valeurs de ces coordonnées par d'autres le curseur se déplace ailleurs, sans rien faire d'autre s'il se positionne sur une zone insensible mais s'il se positionne sur un bouton ça actionne ce bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.rbAutresReperagesMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  var p: TPoint;
begin
  p.X := 400; p.y:=-5;    // coordonnées locales sur MainMenu1
  p := ClientToScreen(p); // coordonnées écran du même point
  SetCursorPos(p.x, p.y);
  Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); // Siulation d'un click sur MainMenu
  Mouse_Event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
end;

Il ne reste donc plus qu'à modifier ces coordonnées et d'activer ceci avec l'évènement de validation.

A+. :D