Discussion :

[polo69]

Besoin d'aide
Sur mon programme de résolution de SUDOKU j'utilise l'évenement OnKeyPress pour filtrer les caractères entrés de 0 à 9
avec passage auto à la cellule suivante.
Quel évenement prendre pour faire la même chose avec Delphi 10.1 Berlin en FMX, je sèche voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
var Select : TGridRect;
begin
if not fin then
begin
  Select:=StringGrid1.Selection;
 
  if (Ord(Key)<48) or (ord(Key)>57)then
     Key:=#48;
 
  if (Key<>#48) then StringGrid1.Cells[Select.Left,Select.Top]:=Key
                else StringGrid1.Cells[Select.Left,Select.Top]:='';
 
 
  if Select.Left<8 then Select.Left:=Select.Left+1
  else
  if Select.Top<8 then
  begin
    Select.Left:=0;
    Select.Top:=Select.Top+1;
  end;
 
  Select.Right:=Select.Left;
  Select.Bottom:=Select.Top;
  StringGrid1.Selection:=Select;
 end; 
end;

[polo69]

Je n'ai pas trouvé l'évenement OnKeyUp avec Delph 10.1 Berlin ??????

[tourlourou]

Il est public mais pas published, donc absent de l'inspecteur d'objet : http://docwiki.embarcadero.com/Libra...ingGrid_Events.

[exoseven]

ne cherche pas j'avais pas vu que tu utilisais une TStringGrid

comme le dit tourlourou comme il n'est pas published il n'est pas visible dans l'inspecteur d'objet, mais tu peux t'y connecter par code.

[Lung]

Quel est l'intérêt de ne pas le mettre en publié ?

[polo69]

L'évenement OnkeyUp n'est pas publié OK , que faut il faire pour le rendre utilisable, ou plutôt quel code faut il écrire ??? c'est ma question quelqu'un peut il me répondre

[tourlourou]

Il faut que tu crées une méthode d'objet qui répondra au prototype du gestionnaire d'événement désiré, et tu l'affecteras par code, style :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.MonGestionnaireIlSentaitBonLeSableChaud(var Key: Word; var KeyChar: WideChar; Shift: TShiftState);
begin
  //...
end;
 
procedure TForm1.Create;
begin
  inherited;
  OnKeyDown := MonGestionnaireIlSentaitBonLeSableChaud;
end;

[polo69]

Ton code ne marche pas
dans onKeyUp:=Mongestionnaire
le programme me demande des parametres

[exoseven]

c'est normal la déclaration est

Code :

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

1
2
3
4
5
procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin

end;