Bonjour à tous,
je voudrais pouvoir sortir d'une procedure, puis quand on clique sur le bouton entrer sur une StringGrid revenir dans la procédure à l'endroit où elle s'est arretée. Sauf que je ne sais pas comment faire...
J'ai tenté ce bout de code sans succès, la boucle tournant sans fin :
Quelqu'un aurait-il une idée??
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 procedure TForm1.Button1Click(Sender: TObject); begin showMessage('entre'); while not enter do begin StringGrid1.Setfocus; application.ProcessMessages; end; showMessage('sort'); end; procedure TForm1.FormCreate(Sender: TObject); begin enter:=false; end; procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key = VK_ENTER then enter:=true; end;
Partager