Здравствуйте! Есть такая проблема: требуется вставить в ячейки Stringgridа кнопки, так как на картинке
Собсна вставить кнопки не проблема - сейчас это делается таким кодом:
Код:
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
var CanSelect: Boolean);
var
NewButton: TButton;
Rect: TRect;
begin
NewButton := TButton.Create(Self);
NewButton.Caption:='+';
NewButton.Parent := Self;
Form1.StringGrid1.Objects[ACol,ARow] := NewButton;
Rect := Form1.StringGrid1.CellRect(ACol,ARow);
NewButton.Left := Form1.StringGrid1.Left + Rect.Left+2;
NewButton.Top := Form1.StringGrid1.Top + Rect.Top+2;
NewButton.Width := Rect.Right - Rect.Left;
NewButton.Height := Rect.Bottom - Rect.Top;
NewButton.Visible := True;
end;
Проблема в том, как получить доступ к событиям onClick этих кнопок в дальнейшем? Заранее спасибо!