[kriv0y]

StringGrid прекрасный компонент, но он не различает левый и правый клик по его области, ячейкам. Можно каким нибудь образом научить его различать левый и правый клик по компоненту? Нашёл только событие StringGridMouseDown, как общее на клик. Спасибо.

[angvelem]

Смотри входящую переменную Button.

[RusMaXXX]

Код:

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then ShowMessage('Нажата левая кнопка');
  if Button = mbRight then ShowMessage('Нажата правая кнопка');  
end;