Bonjour,
Je cherche à permettre à l'utilisateur de déplacer les colonnes d'une stringgrid.
J'y arrive en mettant un évènement OnMouseDown et OnMouseUp sur la Stringrid.
puis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Stringgrid1.OnMouseDown := Stringgrid1MouseDown; Stringgrid1.OnMouseUp := Stringgrid1Mouseup;
Ensuite, le traitement me permet les déplacements.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin memo1.lines.add('GridDown' + (floattostr(Y))); end; procedure TForm1.StringGrid1Mouseup(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single); begin memo1.lines.add('Gridup' + (floattostr(Y))); end;
Mais j'ai besoin de rajouter un Header et dans ce cas, les OnMouseDown et OnMouseUp ne sont pas déclenchés.
C'est la même chose si je mets les éléments OnMouseDown et OnMouseUp sur les Column au lieu de Stringgrid
C'est pour une appli sous android, mais le phénomène est identique sur Windows.
Auriez-vous une solution
Partager