speedbutton поверх stringgrid

[marwell.]

доброго времени суток, форумчане
в общем, есть две таблицы stringgrid, для вывода данных из excel в ячейки этих grid'ов помещены combobox'ы. При щелчке по строке grid'a раскрывается список и после выбора вставляется содержимое. Мне необходимо несколько изменить этот процесс - надо чтобы на строчке grida при наведении мышки появлялась кнопка, при нажатии на которую раскрывался бы список, а если щелкать просто по строчке, то можно вручную вписывать значения. Пытаюсь использовать StringGridMouseMove, при наведении мышки кнопка действительно перемещается, но ее почему то не видно, как будто она оказывается за таблицей. Нажатие на speedbutton и раскрытие списка думаю и сам смогу сделать, но разместить эту кнопку поверх таблицы не получается. Прилагаю архив с исходниками, буду признателен за совет

[Stilet]

Наверное потому что кнопка эта - рисунок. А рисунок рисуется на канве родителя. А родитель - форма. Вот если создать ее с parent-ом в качестве грида, то думаю получится.

[marwell.]

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

Наверное потому что кнопка эта - рисунок. А рисунок рисуется на канве родителя. А родитель - форма. Вот если создать ее с parent-ом в качестве грида, то думаю получится.

точно! спасибо большое

[marwell.]

Видимо я ошибался, когда сказал что сам смогу сделать нажатие на speedbutton и раскрытие списка поэтому прошу совета, как изменить вот эти две процедуры

   procedure TForm1.InitGrid(grid : TStringGrid; cbx : TComboBox;
                      Cols : array of integer; Rows : Integer; Sheet : Variant);
   var i : Integer;
   begin
      grid.DefaultRowHeight := cbx.Height;
      cbx.Visible := False;
      cbx.Style := csDropDownList;

      for i := 0 to High(Cols) do
         grid.ColWidths[i] := Cols[i];

      cbx.DropDownCount := 20;
      for i := 1 to Rows do
         cbx.Items.Add(Sheet.Cells[i, 1].Text);

      grid.Options := grid.Options + [goEditing];

      grid.OnSelectCell := MySelectCell; 
      grid.Tag := Integer(cbx);
   end;

и

procedure TForm1.MySelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
var
   R : TRect;
   Grid : TStringGrid;
begin
   if (ACol = 0) and (ARow <> 0) then
   begin
      Grid := Sender as TStringGrid;
      R := Grid.CellRect(ACol, ARow);
      OffsetRect(R, Grid.Left, Grid.Top);
      with TComboBox(Grid.Tag) do
      begin
         Left := R.Left + 1;
         Top := R.Top + 1;
         Width := (R.Right + 1) - R.Left;
         Height := (R.Bottom + 1) - R.Top;
         { Показываем combobox }
         Visible := True;
         SetFocus;
         DroppedDown := True;
      end;
   end;
   CanSelect := True;
end;

первая вставляет combobox в stringgrid, вторая вставляет содержимое combobox'a в выбранную ячейку grid'a. Мне надо повесить это раскрытие списка и вставку содержимого на speedbutton.
speedbutton рисуется на строчке grida,на которую наведен указатель

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var
  R: TRect;
  width, height: longint;
begin
StringGrid1.MouseToCell(X, Y, AAACol, AAARow);
width:=StringGrid1.ColWidths[AAACol];
height:=StringGrid1.RowHeights[AAARow];
  if ((AAACol = 0) AND
      (AAARow <> 0)) then begin
    R := StringGrid1.CellRect(AAACol, AAARow);
    R.Right := R.Right + StringGrid1.Left;
    SpeedButton1.Left := R.Left + width - speedbutton1.Width;
    SpeedButton1.Top := R.Top + height- speedbutton1.Height;
    SpeedButton1.Visible := True;
  end;

end;

пробовал убрать строчку grid.OnSelectCell := MySelectCell; из первой процедуры, и прописать на нажатие кнопки

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
MySelectCell(StringGrid1, AAACol, AAARow, True);
end;

, но выводит ошибку [Error]Types of actual and formal var parameters must be identical

[Аватар]

procedure TForm1.MySelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
и
MySelectCell(StringGrid1, AAACol, AAARow, True);

Ошибка и говорит, что нельзя для var-параметра константу передавать. Нужно переменную того же типа, что и параметр

[marwell.]

Сообщение от Аватар

procedure TForm1.MySelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
и
MySelectCell(StringGrid1, AAACol, AAARow, True);

Ошибка и говорит, что нельзя для var-параметра константу передавать. Нужно переменную того же типа, что и параметр

спасибо!
а если напишу

procedure TForm1.SpeedButton1Click(Sender: TObject);
var buba: boolean;
begin
MySelectCell(StringGrid1, AAACol, AAARow, buba);
end;

не будет ошибкой то что переменная buba у меня не определена? просто в процедуре MySelectCell этот CanSelect вроде ни на что не влияет...

[Аватар]

В переменную buba не помещено начальное значение. Но какое-то значение там есть. В данном случае ошибки не будет, как по мне это плохой стиль. И если параметр не используется в процедуре, то зачем он вообще в ней предусмотрен?

[marwell.]

Сообщение от Аватар

В переменную buba не помещено начальное значение. Но какое-то значение там есть. В данном случае ошибки не будет, как по мне это плохой стиль. И если параметр не используется в процедуре, то зачем он вообще в ней предусмотрен?

к сожалению этого я не знаю, этот кусок был написан другим человеком и своевременно этот вопрос я у него не уточнял

[marwell.]

а, это допустимость ввода в данную ячейку
теперь понятно