Event Onmousedown sur grid
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.
Code:
1 2
| Stringgrid1.OnMouseDown := Stringgrid1MouseDown;
Stringgrid1.OnMouseUp := Stringgrid1Mouseup; |
puis
Code:
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; |
Ensuite, le traitement me permet les déplacements.
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