stringgrid+колесо мыши=>stringgrid.onclick

[aalleexxaa]

Здравствуйте!
На форме имеется Stringgrid. Stringgrid имеет, к примеру 10 строк (сумма высот строк больше высоты компонента, таким образом, чтобы можно было использовать колесо мыши для прокрутки). Заметил такую фигню, что при фокусе на stringgrid, и прокручивании колесиком мыши каждый раз выполняется процедура Stringgrid1.Onclick. Как мне предотвратить выполнение этой процедуры, но оставить прокручивание списка?.

Раз правила обязывают код прикрепить, прикреплю, но здесь он к моему вопросу абсолютно бесполезен. Поясню еще раз: при пролистывании колесом мыши по Stringgrid каждый раз появляется сообщение "1". Оно мне не нужно.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
	showmessage('1');
end;

end.

может Options есть какой, отключающий?

[asmodey1]

Не стоит мучаться. Просто перенесите вашу строку showmessage('1') в обработчик StringGrid1MouseUp.

[aalleexxaa]

если перенести обработчик в StringGrid1MouseUp, то надо тогда отслеживать, rlf была нажата кнопка (в какую область поля) - попало по ячейкам или нет. Я конечно уже так и сделал, но мне кажется, есть простое решение.

[ArtGrek]

но мне кажется, есть простое решение.

конешно есть

var
  Form1: TForm1;
  a: boolean = false;
  b: boolean = false;

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  if not(a) and not(b) then showmessage('1');
  a := false;
  b := false;
end;

procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
a := true;
end;

procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
b := true;
end;

[aalleexxaa]

спасибо, подумаю над Вашей идеей как ее дальше преобразовать

[ArtGrek]

if not(a) and not(b) then
begin
  showmessage('1');
  // все что было в OnClick, а сеичас в MouseUp
end;

а если есть что то и в прокрутке, то пишите ето поле А и В

другого варианта думаю нет
потому что прокрутка в StringGrid осушествляеца за счет перемешения выделенои ячеики

function TCustomGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := inherited DoMouseWheelDown(Shift, MousePos);
  if not Result then
  begin
    if Row < RowCount - 1 then Row := Row + 1;
    Result := True;
  end;
end;

function TCustomGrid.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := inherited DoMouseWheelUp(Shift, MousePos);
  if not Result then
  begin
    if Row > FixedRows then Row := Row - 1;
    Result := True;
  end;
end;

если не ошибаюсь