Oh... it's so simple i didn't think about such a solution. :-) Thanks.
Cédric
procedure TFormGrid.GridMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);VAR ACol, ARow: Integer; begin if (button = mbRight) then begin Grid.MouseToCell(X, Y, ACol, ARow); Grid.Row:= acol; Grid.Col:= acol; end; end;
_______________________________________________ Delphi mailing list -> Delphi@elists.org http://lists.elists.org/cgi-bin/mailman/listinfo/delphi
