Куда пропал OnClick!?

[Hex1986]

Создаю динамически кнопки в Стрингриде:

SetLength(NewButton,Arow);
NewButton[Arow-1] := TButton.Create(self);
NewButton[Arow-1].Caption:='...';
NewButton[Arow-1].Parent := StringGrid1;
StringGrid1.Objects[ACol,Arow] := NewButton[Arow-1];
Rect := StringGrid1.CellRect(ACol,Arow);
NewButton[Arow-1].Width := 20;
NewButton[Arow-1].Height := 18;
NewButton[Arow-1].Left := Rect.Right-NewButton[Arow-1].Width;
NewButton[Arow-1].Top := Rect.Top;
NewButton[Arow-1].Tag:=-1;

NewButton[Arow-1].OnClick:= butcheckingLstElement;

При клике мышкой не происходит события(butcheckingLstElement), а при нажатии на клавишу Энтер происходит это событие. В чем фокус? Кто знает?

[Прик]

Какое-то непонятное создание кнопок:
- в каком месте и в какой момент создается кнопка (в коде создается только одна кнопка)?
- зачем держать две ссылки на кнопку? Одной не хватит?

[Человек_Борща]

может надо в OnClick передавать не метод, а указатель на него?

[Hex1986]

Сообщение от Прик

Какое-то непонятное создание кнопок:
- в каком месте и в какой момент создается кнопка (в коде создается только одна кнопка)?
- зачем держать две ссылки на кнопку? Одной не хватит?

это тело процедуры, которая создает кнопку в указаном поле стринггрида
она вызывается столько раз сколько строк в таблице(StringGrid)
вот полностью:

procedure TForm1.addbutinTable(ACol,Arow:Integer);
var
  Rect: TRect;
begin
SetLength(NewButton,Arow);
 NewButton[Arow-1] := TButton.Create(self);
 NewButton[Arow-1].Caption:='...';
 NewButton[Arow-1].Parent := StringGrid1;
 StringGrid1.Objects[ACol,Arow] := NewButton[Arow-1];
 Rect := StringGrid1.CellRect(ACol,Arow);
 NewButton[Arow-1].Width := 20;
 NewButton[Arow-1].Height := 18;
 NewButton[Arow-1].Left := Rect.Right-NewButton[Arow-1].Width;
 NewButton[Arow-1].Top := Rect.Top;
 NewButton[Arow-1].Tag:=-1;

 NewButton[Arow-1].OnClick:= butcheckingLstElement;
end;

Сообщение от Человек_Борща

может надо в OnClick передавать не метод, а указатель на него?

Частично ведь работает(при нажатии кнопки enter)

Я думаю это из-за стринггрида, ведь если выбрать парент = форма то все норм работает.

[phomm]

Добавить

  NewButton[Arow - 1].OnMouseUp := foo;
...
procedure TForm1.foo(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
butcheckingLstElement(sender);
end;

[Serge_Bliznykov]

проверил. действительно, если "родитель" кнопки stringgrid - то он не отдаёт кнопке нажатия.

подтверждение этому нашёл здесь

а что, если назначить форму родителем?!
примерно так:

 NewButton[Arow-1].Parent := Form1; 
 StringGrid1.Objects[ACol,Arow] := NewButton[Arow-1];
 Rect := StringGrid1.CellRect(ACol,Arow);
 NewButton[Arow-1].Width := 20;
 NewButton[Arow-1].Height := 18; NewButton[Arow-1].Left := Rect.Right-NewButton[Arow-1].Width + StringGrid1.Left;
 NewButton[Arow-1].Top := Rect.Top + StringGrid1.Top + 2;
 NewButton[Arow-1].Tag:=Arow;

p.s. если грид не помещается на форме целиком (скролируется), то выглядеть это будет глюкаво, впрочем, с родителем гридом тоже не очень кузявно...)


phomm, круто! Работает!
Хотя, со скролированием стрингрида та же беда!