des curseurs dans un stringgrid
Bonsoir à tous,
Voila, j'ai un stringgrid et quand je clic dessus pour entrer une lettre, cette derniere s'affiche bien dans le stringgrid, mais quand je clic sur une autre case, le curseur reste affiché à l'écran. Mon stringgrid fait 3x3 et j'ai donc 9 curseurs(ou pseudo) qui reste à l'écran (ex: h + curseur, d+curseur,...).
Je vous laisse mon code qui est pourtant tres simple :
Code:
1
2
3
4
5
6
7
8
| procedure TForm1.Bloc1SetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: String);
var
chiffre : string;
begin
chiffre := Bloc1.Cells[ACol,ARow];
Label1.Caption:= chiffre;
end; |
Merci de m'aider.
sincerement,
elecpic
