本人用了一个16行5列的StringGrid1控件，想在第一列上使用一个Button控件来做查询，想要达到的效果是在第一列上只使用一个Button控件，运行以后，拖动滚动条，用鼠标点击到第一列中的某一行时，则显示该Button控件,然后点击后弹出一个窗口是在数据库中某个表的数据，此时该列其余的行不显示Button控件，点击另一行时，在第一列另一行上显示Button控件，以此类推，多谢各位高手指教！
下面是画按钮的代码,条件是点击某行的第一列，按钮将会移动到所选行的第一列，具体条件自己可以修改
Delphi(Pascal) code:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if (FRow = ARow) and (ACol = 1) then
Button1.SetBounds(StringGrid1.left+Rect.Left,StringGrid1.Top+rect.Top,Rect.Right - Rect.Left,Rect.Bottom-rect.Top);
end;
加入代码后不停的显...
高手帮忙看看:
unit Unit12;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, Grids, DBGrids, DB, ADODB;
type
TMat_lib = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet3: TTabSheet;
Panel2: TPanel;
add_Button: TButton;
