StringGrid по нажатию...

[zotox]

Вообщем есть StringGrid, хочу сделать так чтобы делалось определенное действие при нажатии на левую кнопку (по колонке в stringgrid'е которая), и еще определенное действие при нажатии на правую кнопку...

Как такое реализовать? (событие OnClick не прокатывает так как я могу левой кнопкой кликнуть или правой, а действия разные же должны производиться, и еще там не определяется по какой колонке я кликнул)(событие SelectCell не подходит,хотя он и определяет по какой колонке я кликнул (ACol,ARow) но события кнопками должны быть разными(левая кнопка - одно действие, правая кнопка - другое действие))
Ах да интересует еще токо при двойном клике!

[psycho-coder]

Ну хотя бы вот так

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    ShowMessage('mbLeft - ' + IntToStr(StringGrid1.Col));
  end;

  if Button = mbRight then
  begin
    ShowMessage('mbRight - ' + IntToStr(StringGrid1.Col));
  end;
end;

[zotox]

Сообщение от psycho-coder

Ну хотя бы вот так

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    ShowMessage('mbLeft - ' + IntToStr(StringGrid1.Col));
  end;

  if Button = mbRight then
  begin
    ShowMessage('mbRight - ' + IntToStr(StringGrid1.Col));
  end;
end;

такое не идет... нужно еще определенние col,row (stringgrid) (на скоко я знаю X, Y: Integer - это не определенние col,row) (или я ошибаюсь на счет X,Y ?)

[Evgeniy26]

Посмотри здесь. 10 пост psycho-coder'a.

[A_r_r_a_y]

я что-то не пойму чем этот вариант не понравился?

Сообщение от zotox

нужно еще определенние col,row

дык там же написано
ShowMessage('mbLeft - ' + IntToStr(StringGrid1.Col));
также для строки
ShowMessage('mbLeft - ' + IntToStr(StringGrid1.Row));

[zotox]

Сообщение от A_r_r_a_y

я что-то не пойму чем этот вариант не понравился?

дык там же написано
ShowMessage('mbLeft - ' + IntToStr(StringGrid1.Col));
также для строки
ShowMessage('mbLeft - ' + IntToStr(StringGrid1.Row));

а) блин точно
просто сразу на ифы посмотрел и сразу же побежал кодить
Но вариант от Evgeniy26 мне больше подходит даже! За что ему отдельное спасибо!

Сообщение от psycho-coder

Ну хотя бы вот так

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft then
  begin
    ShowMessage('mbLeft - ' + IntToStr(StringGrid1.Col));
  end;

  if Button = mbRight then
  begin
    ShowMessage('mbRight - ' + IntToStr(StringGrid1.Col));
  end;
end;

А если я хочу чтобы при двойном клике было действие а не при одном?

Ап! Смотрите #7 пост

[Stilet]

Смотри:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;

type
  TStringGrid=class(Grids.TStringGrid)
   procedure p(var w:TWMLButtonDblClk); message WM_LButtonDblClk;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



{ TStringGrid }

procedure TStringGrid.p;
var q,e:integer;
begin
 if w.Keys=MK_LBUTTON	then
 Form1.StringGrid1.MouseToCell(w.XPos,w.YPos,q,e);
  form1.Caption:='cells['+inttostr(q)+','+inttostr(e)+']';
end;

end.

Здесь обрабатываются даблклики по любой ячейке левой мышкой.