Кнопки в TStringGrid

[dimon000]

Как можно сделать так, чтобы во всех ячейках определённого столбца TStringGrid находилось по кнопке, причём реакция на нажатие разных кнопок была разной?

[Roof]

таким спсобом можно разные компоненты засовывать в ячейки.
держи исходник, там основная идея КАК это сделать. Если кнопок будет много, то придется подумать над оптимизацией кода

[alexBlack]

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

Как можно сделать так, чтобы во всех ячейках определённого столбца TStringGrid находилось по кнопке, причём реакция на нажатие разных кнопок была разной?

При желании можно и TButton вставить:

type
  TNewStringGrid = class(TStringGrid)
  private
     FLastTopRow : integer;
  protected
     procedure Paint; override;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    SG:TNewStringGrid;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var B:TButton;
    i:integer;
begin
   SG := TNewStringGrid.Create(Self);
   SG.Parent     := Self;
   SG.RowCount   := 66;
   SG.Align      := alClient;
   SG.OnDrawCell := StringGrid1DrawCell;

   for i:=0 to SG.RowCount-1 do begin
      B := TButton.Create(Self);
      B.Parent := SG;
      B.Caption := 'Button '+intToStr(i);
      B.Left := -100;
      B.Top  := -100;
      //B.OnClick := Button1Click;
      B.OnMouseDown := Button1MouseDown;
      B.Tag     := i+1;
      SG.objects[1, i] := B;
   end;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Integer;
  Rect: TRect; State: TGridDrawState);
var B:TButton;
begin
   if Col = 1 then begin // В этой колонке кнопки
      B := TButton(SG.objects[1, Row]);
      B.BoundsRect := Rect;
   end;

   if Col = 2 then begin  // Простое рисование
      Windows.DrawFrameControl(SG.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH);
   end;
end;

procedure TNewStringGrid.Paint;
var i:integer;
    B:TButton;
begin
   // К сожалению методы не виртуальные и об изменении проще узнать здесь
   if FLastTopRow <> TopRow then begin
      FLastTopRow := TopRow;
      InvalidateCol(1);
      for i:=0 to RowCount-1 do begin
         B := TButton(objects[1, i]);
         B.Left := -100;
      end;
   end;
   inherited
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ShowMessage(intToStr(TButton(Sender).Tag));
end;

Но проще будет просто нарисовать кнопку и сделать реакцию на нажатие мышки. Рисование в OnDrawCell вызовом

Windows.DrawFrameControl(StringGrid 1.Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH);

--------------------------------
2Roof Метод тот-же. Только приходится пересчитывать координаты кнопок при изменении TopRow. StringGrid не вызывает DrawCell для всех ячеек при сдвиге окна на одну строку.

[Банзай]

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

B := TButton.Create(Self);

а нужно память очищать потом?

[alexBlack]

Сообщение от Банзай

а нужно память очищать потом?

В данном случае нет, т.к. мы указываем владельца - TForm1. Кнопки будут уничтожены при освобождении формы.